MacWorld: Complete Mac Interactive

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Complete Mac Interactive / Macworld Complete Mac Interactive CD)(1994).iso / Software / Graphsoft / MiniCad 5 Installer / GMisc.sit / MiniPascal Commands / Sample Macros < prev
MacBinary | 1994-04-04 | 46.9 KB | [MC+4/CDP3]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Sample Macros
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, bozo, Mon Apr 4 22:11:03 1994, modified Mon Apr 4 22:11:03 1994, creator 'CDP3', type 'MC+4', 42758 bytes "Sample Macros" , at 0xa786 4950 bytes resource	default (weak)
`99%`	file	data	default
`100%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[MC+4]`
macFileCreator	`[CDP3]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 53 61 6d 70 6c 65 | 20 4d 61 63 72 6f 73 00 |..Sample| Macros.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 4d 43 2b 34 43 44 50 | 33 09 00 00 00 00 00 00 |.MC+4CDP|3.......|
|00000050| 00 00 00 00 00 a7 06 00 | 00 13 56 a9 c6 79 37 a9 |........|..V..y7.|
|00000060| c6 79 37 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.y7.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 1b a3 00 00 |........|........|
|00000080| 00 00 08 18 00 00 00 00 | 00 83 25 b8 00 20 00 00 |........|..%.. ..|
|00000090| 00 41 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.A......|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 83 24 14 00 83 |........|....$...|
|000000b0| 24 04 00 00 00 00 00 28 | 02 01 0a 0c fe 93 fe ec |$......(|........|
|000000c0| 01 6d 01 14 3f fe 80 00 | b3 8d f5 8e 52 24 3f fc |.m..?...|....R$?.|
|000000d0| aa a9 bb 44 08 6a 9b b4 | 3f fb aa a9 bb 44 08 6a |...D.j..|?....D.j|
|000000e0| 9b b4 40 05 90 00 00 00 | 00 00 00 00 40 05 90 00 |..@.....|....@...|
|000000f0| 00 00 00 00 00 00 00 33 | 00 0f 01 a6 02 33 40 02 |.......3|.....3@.|
|00000100| a4 e2 a6 ed 10 21 aa 6f | 40 02 f3 8c e3 3e 6c 02 |.....!.o|@....>l.|
|00000110| ce 34 01 00 01 01 01 01 | 01 00 00 03 00 00 00 48 |.4......|.......H|
|00000120| 00 48 00 00 00 00 02 da | 02 28 ff e1 ff e2 02 f9 |.H......|.(......|
|00000130| 02 46 03 47 05 28 03 fc | 00 02 00 00 00 48 00 48 |.F.G.(..|.....H.H|
|00000140| 00 00 00 00 02 da 02 28 | 00 01 00 00 00 64 00 00 |.......(|.....d..|
|00000150| 00 01 00 01 01 01 00 00 | 00 01 27 0f 00 01 00 01 |........|..'.....|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 02 00 19 |........|........|
|00000170| 01 90 00 00 00 00 00 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00000180| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 01 01 00 01 00 01 | 00 00 00 00 3f fe 80 00 |........|....?...|
|000001b0| b3 8d f5 8e 52 24 00 83 | 35 b4 00 83 26 e4 00 83 |....R$..|5...&...|
|000001c0| 23 f0 00 83 23 c4 00 83 | 23 a8 00 83 23 8c 00 83 |#...#...|#...#...|
|000001d0| 23 70 00 83 23 54 00 83 | 23 38 00 83 23 1c 00 83 |#p..#T..|#8..#...|
|000001e0| 23 00 00 83 22 e4 00 83 | 22 b8 00 83 22 9c 00 83 |#..."...|"..."...|
|000001f0| 22 80 00 83 22 64 00 83 | 22 48 00 83 22 2c 00 83 |"..."d..|"H..",..|
|00000200| 22 10 00 83 21 f4 00 83 | 21 d8 00 83 21 ac 00 83 |"...!...|!...!...|
|00000210| 21 90 00 83 21 74 00 83 | 21 58 00 83 21 3c 00 83 |!...!t..|!X..!<..|
|00000220| 21 20 00 83 21 04 00 83 | 20 e8 00 83 20 cc 00 83 |! ..!...| ... ...|
|00000230| 20 a0 00 83 20 84 00 83 | 20 68 00 83 20 4c 00 83 | ... ...| h.. L..|
|00000240| 20 30 00 83 20 14 00 00 | 10 00 00 03 3f ff 80 00 | 0.. ...|....?...|
|00000250| 00 00 00 00 00 00 09 46 | 74 20 26 20 49 6e 63 68 |.......F|t & Inch|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 22 00 00 |........|....."..|
|00000270| 00 00 00 00 00 00 01 27 | 00 00 00 00 00 00 00 00 |.......'|........|
|00000280| 01 2d 00 00 00 00 00 00 | 00 00 00 0c 06 20 73 71 |.-......|..... sq|
|00000290| 20 66 74 00 00 00 00 00 | 00 00 00 00 00 90 06 20 | ft.....|....... |
|000002a0| 63 75 20 66 74 00 00 00 | 00 00 00 00 00 00 06 c0 |cu ft...|........|
|000002b0| 00 00 00 04 90 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 02 00 00 83 24 14 00 01 | 00 00 00 00 00 00 00 00 |....$...|........|
|000002d0| 00 00 00 28 00 3b 01 dd | 02 7d 00 00 00 00 00 00 |...(.;..|.}......|
|000002e0| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 24 00 00 00 00 |........|...$....|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 ff 00 ff 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 83 25 e4 00 00 |........|....%...|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 08 00 00 83 25 b8 00 00 | 00 00 0d 64 05 79 2c a4 |....%...|...d.y,.|
|000008a0| 00 00 00 00 00 1e 00 00 | 00 40 00 08 01 02 3f fb |........|.@....?.|
|000008b0| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|000008c0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000008d0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000008e0| 3f fb aa a8 00 00 00 00 | 00 00 00 00 00 00 00 01 |?.......|........|
|000008f0| ff e0 00 00 00 00 00 05 | ff e8 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fc 8e 38 |........|....?..8|
|00000940| 00 00 00 00 00 00 00 00 | 18 e3 00 00 23 8e 00 00 |........|....#...|
|00000950| 23 8e 00 00 23 8e 00 00 | 23 8e 00 00 23 8e 00 00 |#...#...|#...#...|
|00000960| 23 8e 00 00 23 8e 00 00 | 23 8e 00 00 23 8e 3f fc |#...#...|#...#.?.|
|00000970| 8e 38 00 00 00 00 00 00 | 00 00 00 00 00 05 ff e8 |.8......|........|
|00000980| 00 00 00 00 00 09 ff f0 | 00 00 00 00 00 00 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 01 02 3f fd 80 00 00 00 |........|..?.....|
|000009d0| 00 00 00 00 00 00 35 55 | 00 00 40 00 00 00 40 00 |......5U|..@...@.|
|000009e0| 00 00 40 00 00 00 40 00 | 00 00 40 00 00 00 40 00 |..@...@.|..@...@.|
|000009f0| 00 00 40 00 00 00 40 00 | 00 00 40 00 3f fd 80 00 |..@...@.|..@.?...|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 0d ff f8 00 00 |........|........|
|00000a10| 00 00 00 12 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 01 02 | 3f fd 9c 70 00 00 00 00 |........|?..p....|
|00000a60| 00 00 00 00 43 8e 00 00 | 4e 38 00 00 4e 38 00 00 |....C...|N8..N8..|
|00000a70| 4e 38 00 00 4e 38 00 00 | 4e 38 00 00 4e 38 00 00 |N8..N8..|N8..N8..|
|00000a80| 4e 38 00 00 4e 38 00 00 | 4e 38 3f fd 9c 70 00 00 |N8..N8..|N8?..p..|
|00000a90| 00 00 00 00 00 00 00 00 | 00 12 00 00 00 00 00 00 |........|........|
|00000aa0| 00 15 ff c0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 01 02 3f fa | aa a0 00 00 00 00 00 00 |......?.|........|
|00000af0| 00 00 03 8e 00 00 0a aa | 00 00 0a aa 00 00 0a aa |........|........|
|00000b00| 00 00 0a aa 00 00 0a aa | 00 00 0a aa 00 00 0a aa |........|........|
|00000b10| 00 00 0a aa 00 00 0a aa | 3f fa aa a0 00 00 00 00 |........|?.......|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 02 |........|........|
|00000b30| ff d0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 01 04 3f fc d5 54 | 00 00 00 00 00 00 00 00 |....?..T|........|
|00000b80| 20 00 00 00 2a aa 00 00 | 2e 38 00 00 35 55 00 00 | ...*...|.8..5U..|
|00000b90| 35 55 00 00 35 55 00 00 | 35 55 00 00 35 55 00 00 |5U..5U..|5U..5U..|
|00000ba0| 35 55 00 00 35 55 3f fc | d5 54 00 00 00 00 00 00 |5U..5U?.|.T......|
|00000bb0| 00 00 00 00 00 08 00 10 | 00 00 00 00 00 0b ff d0 |........|........|
|00000bc0| 00 00 00 00 00 0b ff d0 | 00 00 00 00 00 0e ff e8 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 01 06 3f fd c0 00 00 00 | 00 00 00 00 00 00 20 00 |..?.....|...... .|
|00000c10| 00 00 2a aa 00 00 4a aa | 00 00 55 55 00 00 58 e3 |..*...J.|..UU..X.|
|00000c20| 00 00 60 00 00 00 60 00 | 00 00 60 00 00 00 60 00 |..`...`.|..`...`.|
|00000c30| 00 00 60 00 3f fd c0 00 | 00 00 00 00 00 00 00 00 |..`.?...|........|
|00000c40| 00 00 00 08 00 10 00 00 | 00 00 00 0b ff d0 00 00 |........|........|
|00000c50| 00 00 00 13 ff e0 00 00 | 00 00 00 17 ff e8 00 00 |........|........|
|00000c60| 00 00 00 17 ff e8 00 00 | 00 00 00 1b 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 06 |........|........|
|00000c90| 3f fd 80 00 00 00 00 00 | 00 00 00 00 20 00 00 00 |?.......|.... ...|
|00000ca0| 2a aa 00 00 2e 38 00 00 | 35 55 00 00 38 e3 00 00 |*....8..|5U..8...|
|00000cb0| 40 00 00 00 40 00 00 00 | 40 00 00 00 40 00 00 00 |@...@...|@...@...|
|00000cc0| 40 00 3f fd 80 00 00 00 | 00 00 00 00 00 00 00 00 |@.?.....|........|
|00000cd0| 00 08 00 10 00 00 00 00 | 00 0b ff d0 00 00 00 00 |........|........|
|00000ce0| 00 0b ff d0 00 00 00 00 | 00 0e ff e8 00 00 00 00 |........|........|
|00000cf0| 00 0e ff e8 00 00 00 00 | 00 12 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 02 3f fb |........|......?.|
|00000d20| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|00000d30| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000d40| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fb aa a8 |........|....?...|
|00000db0| 00 00 00 00 00 00 00 00 | 0a aa 00 00 15 55 00 00 |........|.....U..|
|00000dc0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000dd0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | 01 02 3f fb aa a8 00 00 |........|..?.....|
|00000e40| 00 00 00 00 00 00 0a aa | 00 00 15 55 00 00 15 55 |........|...U...U|
|00000e50| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000e60| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 00 00 |...U...U|...U....|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 01 02 | 3f fb aa a8 00 00 00 00 |........|?.......|
|00000ed0| 00 00 00 00 0a aa 00 00 | 15 55 00 00 15 55 00 00 |........|.U...U..|
|00000ee0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000ef0| 15 55 00 00 15 55 00 00 | 15 55 00 00 00 00 00 00 |.U...U..|.U......|
|00000f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 01 02 3f fb | aa a8 00 00 00 00 00 00 |......?.|........|
|00000f60| 00 00 0a aa 00 00 15 55 | 00 00 15 55 00 00 15 55 |.......U|...U...U|
|00000f70| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000f80| 00 00 15 55 00 00 15 55 | 00 00 00 00 00 00 00 00 |...U...U|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 01 02 3f fb aa a8 | 00 00 00 00 00 00 00 00 |....?...|........|
|00000ff0| 0a aa 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.....U..|.U...U..|
|00001000| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001010| 15 55 00 00 15 55 00 00 | 00 00 00 00 00 00 00 00 |.U...U..|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 01 02 3f fb aa a8 00 00 | 00 00 00 00 00 00 0a aa |..?.....|........|
|00001080| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001090| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000010a0| 00 00 15 55 00 00 00 00 | 00 00 00 00 00 00 00 00 |...U....|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 02 |........|........|
|00001100| 3f fb aa a8 00 00 00 00 | 00 00 00 00 0a aa 00 00 |?.......|........|
|00001110| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001120| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001130| 15 55 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U......|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 02 3f fb |........|......?.|
|00001190| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|000011a0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000011b0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001210| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fb aa a8 |........|....?...|
|00001220| 00 00 00 00 00 00 00 00 | 0a aa 00 00 15 55 00 00 |........|.....U..|
|00001230| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001240| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012a0| 00 00 00 00 00 00 00 00 | 01 02 3f fb aa a8 00 00 |........|..?.....|
|000012b0| 00 00 00 00 00 00 0a aa | 00 00 15 55 00 00 15 55 |........|...U...U|
|000012c0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000012d0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 00 00 |...U...U|...U....|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 01 02 | 3f fb aa a8 00 00 00 00 |........|?.......|
|00001340| 00 00 00 00 0a aa 00 00 | 15 55 00 00 15 55 00 00 |........|.U...U..|
|00001350| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001360| 15 55 00 00 15 55 00 00 | 15 55 00 00 00 00 00 00 |.U...U..|.U......|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 01 02 3f fb | aa a8 00 00 00 00 00 00 |......?.|........|
|000013d0| 00 00 0a aa 00 00 15 55 | 00 00 15 55 00 00 15 55 |.......U|...U...U|
|000013e0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000013f0| 00 00 15 55 00 00 15 55 | 00 00 00 00 00 00 00 00 |...U...U|........|
|00001400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 01 02 3f fb aa a8 | 00 00 00 00 00 00 00 00 |....?...|........|
|00001460| 0a aa 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.....U..|.U...U..|
|00001470| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001480| 15 55 00 00 15 55 00 00 | 00 00 00 00 00 00 00 00 |.U...U..|........|
|00001490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 01 02 3f fb aa a8 00 00 | 00 00 00 00 00 00 0a aa |..?.....|........|
|000014f0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001500| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001510| 00 00 15 55 00 00 00 00 | 00 00 00 00 00 00 00 00 |...U....|........|
|00001520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 02 |........|........|
|00001570| 3f fb aa a8 00 00 00 00 | 00 00 00 00 0a aa 00 00 |?.......|........|
|00001580| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001590| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|000015a0| 15 55 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U......|........|
|000015b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 56 |........|.......V|
|00001600| 05 79 2c a4 00 00 00 00 | 00 23 00 00 00 41 00 01 |.y,.....|.#...A..|
|00001610| 04 4e 6f 6e 65 00 2a 30 | 00 00 77 48 00 00 00 01 |.None.*0|..wH....|
|00001620| 00 00 00 00 ff ff 09 44 | 69 6d 65 6e 73 69 6f 6e |.......D|imension|
|00001630| 77 48 00 00 00 01 00 00 | 00 00 ff ff 00 00 00 00 |wH......|........|
|00001640| 00 00 00 64 00 2c fb 40 | 00 2d 78 7c 00 2d 78 94 |...d.,.@|.-x|.-x.|
|00001650| 00 00 00 00 00 2c 05 79 | 2c a4 00 00 00 00 00 37 |.....,.y|,......7|
|00001660| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 00 24 05 79 2c a4 00 00 | 00 00 00 21 00 00 00 41 |.$.y,...|...!...A|
|00001690| 00 02 00 00 00 00 00 83 | 24 14 00 00 00 00 00 2d |........|$......-|
|000016a0| 78 78 00 00 00 4a 05 79 | 2c a4 00 00 00 00 00 39 |xx...J.y|,......9|
|000016b0| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|000016c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 83 26 4c |........|......&L|
|000016d0| 00 83 24 20 00 00 00 00 | 00 00 00 00 00 00 00 00 |..$ ....|........|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 52 |........|.......R|
|000016f0| 05 79 2c a4 00 00 00 00 | 00 33 00 00 00 40 00 00 |.y,.....|.3...@..|
|00001700| 00 00 00 00 00 00 00 00 | 80 00 01 80 01 2d 01 c0 |........|.....-..|
|00001710| 01 ca 00 83 4b a0 00 83 | 25 e0 00 83 25 94 0c 56 |....K...|%...%..V|
|00001720| 69 65 77 73 2f 52 65 6e | 64 65 72 73 00 01 92 25 |iews/Ren|ders...%|
|00001730| 01 23 00 f3 00 00 00 01 | 40 80 00 13 00 6f 00 00 |.#......|@....o..|
|00001740| 00 43 05 79 2c a4 00 00 | 00 00 00 31 00 00 00 40 |.C.y,...|...1...@|
|00001750| 0a 46 72 6f 6e 74 20 56 | 69 65 77 00 00 00 00 00 |.Front V|iew.....|
|00001760| 00 00 00 00 00 00 00 6f | d0 c4 00 6f 68 18 00 00 |.......o|...oh...|
|00001770| 00 0f 44 6f 4d 65 6e 75 | 28 31 35 32 32 2c 33 29 |..DoMenu|(1522,3)|
|00001780| 3b 00 00 00 43 05 79 2c | a4 00 00 00 00 00 31 00 |;...C.y,|......1.|
|00001790| 00 00 40 0a 57 69 72 65 | 20 46 72 61 6d 65 00 00 |..@.Wire| Frame..|
|000017a0| 00 00 00 00 00 00 7b 5a | 94 80 48 4f c2 00 45 97 |......{Z|..HO..E.|
|000017b0| 54 00 74 00 0f 44 6f 4d | 65 6e 75 28 31 35 32 34 |T.t..DoM|enu(1524|
|000017c0| 2c 31 29 3b 00 00 01 be | 05 79 2c a4 00 83 25 c8 |,1);....|.y,...%.|
|000017d0| 00 31 00 00 00 40 11 56 | 69 65 77 20 4f 62 6a 65 |.1...@.V|iew Obje|
|000017e0| 63 74 20 56 69 65 77 73 | 00 00 00 00 00 74 5c c8 |ct Views|.....t\.|
|000017f0| 00 73 f4 4c 00 00 01 8a | 50 72 6f 63 65 64 75 72 |.s.L....|Procedur|
|00001800| 65 20 56 4f 62 56 69 65 | 77 3b 0d 56 41 52 0d 20 |e VObVie|w;.VAR. |
|00001810| 09 4b 43 6f 64 20 3a 20 | 49 4e 54 45 47 45 52 3b |.KCod : |INTEGER;|
|00001820| 0d 42 45 47 49 4e 0d 09 | 44 6f 4d 65 6e 75 28 31 |.BEGIN..|DoMenu(1|
|00001830| 35 32 32 2c 33 29 3b 0d | 09 52 65 64 72 61 77 41 |522,3);.|.RedrawA|
|00001840| 6c 6c 3b 0d 09 4d 65 73 | 73 61 67 65 28 27 50 72 |ll;..Mes|sage('Pr|
|00001850| 65 73 73 20 6b 65 79 20 | 74 6f 20 63 68 61 6e 67 |ess key |to chang|
|00001860| 65 20 74 6f 20 72 69 67 | 68 74 20 76 69 65 77 2e |e to rig|ht view.|
|00001870| 2e 2e 27 29 3b 0d 09 47 | 65 74 4b 65 79 44 6f 77 |..');..G|etKeyDow|
|00001880| 6e 28 4b 43 6f 64 29 3b | 0d 09 44 6f 4d 65 6e 75 |n(KCod);|..DoMenu|
|00001890| 28 31 35 32 32 2c 34 29 | 3b 0d 09 52 65 64 72 61 |(1522,4)|;..Redra|
|000018a0| 77 41 6c 6c 3b 0d 09 4d | 65 73 73 61 67 65 28 27 |wAll;..M|essage('|
|000018b0| 50 72 65 73 73 20 6b 65 | 79 20 74 6f 20 63 68 61 |Press ke|y to cha|
|000018c0| 6e 67 65 20 74 6f 20 72 | 69 67 68 74 20 69 73 6f |nge to r|ight iso|
|000018d0| 20 76 69 65 77 2e 2e 2e | 27 29 3b 0d 09 47 65 74 | view...|');..Get|
|000018e0| 4b 65 79 44 6f 77 6e 28 | 4b 43 6f 64 29 3b 0d 09 |KeyDown(|KCod);..|
|000018f0| 44 6f 4d 65 6e 75 28 31 | 35 32 32 2c 38 29 3b 0d |DoMenu(1|522,8);.|
|00001900| 09 52 65 64 72 61 77 41 | 6c 6c 3b 0d 09 4d 65 73 |.RedrawA|ll;..Mes|
|00001910| 73 61 67 65 28 27 50 72 | 65 73 73 20 6b 65 79 20 |sage('Pr|ess key |
|00001920| 74 6f 20 63 68 61 6e 67 | 65 20 74 6f 20 70 6c 61 |to chang|e to pla|
|00001930| 6e 20 76 69 65 77 2e 2e | 2e 27 29 3b 0d 09 47 65 |n view..|.');..Ge|
|00001940| 74 4b 65 79 44 6f 77 6e | 28 4b 43 6f 64 29 3b 0d |tKeyDown|(KCod);.|
|00001950| 09 43 6c 72 4d 65 73 73 | 61 67 65 3b 0d 09 44 6f |.ClrMess|age;..Do|
|00001960| 4d 65 6e 75 28 31 35 32 | 32 2c 31 29 3b 0d 45 4e |Menu(152|2,1);.EN|
|00001970| 44 3b 0d 52 75 6e 28 56 | 4f 62 56 69 65 77 29 3b |D;.Run(V|ObView);|
|00001980| 0d 0d 00 00 00 60 05 79 | 2c a4 00 00 00 00 00 3b |.....`.y|,......;|
|00001990| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 60 05 79 | 2c a4 00 00 00 00 00 3b |.....`.y|,......;|
|000019f0| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00001a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 00 60 05 79 | 2c a4 00 00 00 00 00 3b |.....`.y|,......;|
|00001a50| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001aa0| 00 00 00 00 00 60 05 79 | 2c a4 00 00 00 00 00 3b |.....`.y|,......;|
|00001ab0| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 00 00 00 60 00 00 | 00 00 00 00 00 00 00 3b |.....`..|.......;|
|00001b10| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00001b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 48 05 79 | 2c a4 00 00 00 00 00 31 |.....H.y|,......1|
|00001b70| 00 00 00 40 0d 54 6f 70 | 2f 50 6c 61 6e 20 56 69 |...@.Top|/Plan Vi|
|00001b80| 65 77 61 6e 6e 00 00 7b | 5a 94 80 4a 92 d2 00 45 |ewann..{|Z..J...E|
|00001b90| 97 54 00 74 00 14 44 6f | 4d 65 6e 75 28 4d 53 74 |.T.t..Do|Menu(MSt|
|00001ba0| 64 56 69 65 77 73 2c 31 | 29 3b 00 00 00 43 05 79 |dViews,1|);...C.y|
|00001bb0| 2c a4 00 00 00 00 00 31 | 00 00 00 40 0c 53 68 61 |,......1|...@.Sha|
|00001bc0| 64 65 64 20 53 6f 6c 69 | 64 00 00 00 00 00 00 00 |ded Soli|d.......|
|00001bd0| 00 00 00 74 5c c8 00 73 | f4 4c 00 00 00 0f 44 6f |...t\..s|.L....Do|
|00001be0| 4d 65 6e 75 28 31 35 32 | 34 2c 34 29 3b 00 00 00 |Menu(152|4,4);...|
|00001bf0| 43 05 79 2c a4 00 00 00 | 00 00 31 00 00 00 40 0a |C.y,....|..1...@.|
|00001c00| 52 69 67 68 74 20 56 69 | 65 77 77 00 00 00 00 00 |Right Vi|eww.....|
|00001c10| 00 00 00 00 00 00 74 5c | c8 00 73 f4 4c 00 00 00 |......t\|..s.L...|
|00001c20| 0f 44 6f 4d 65 6e 75 28 | 31 35 32 32 2c 34 29 3b |.DoMenu(|1522,4);|
|00001c30| 00 00 00 43 05 79 2c a4 | 00 00 00 00 00 31 00 00 |...C.y,.|.....1..|
|00001c40| 00 40 0e 52 69 67 68 74 | 20 49 73 6f 20 56 69 65 |.@.Right| Iso Vie|
|00001c50| 77 00 00 00 00 00 00 00 | 00 74 5c c8 00 73 f4 4c |w.......|.t\..s.L|
|00001c60| 00 00 00 0f 44 6f 4d 65 | 6e 75 28 31 35 32 32 2c |....DoMe|nu(1522,|
|00001c70| 38 29 3b 00 00 00 43 05 | 79 2c a4 00 00 00 00 00 |8);...C.|y,......|
|00001c80| 31 00 00 00 40 0f 52 65 | 74 75 72 6e 20 54 6f 70 |1...@.Re|turn Top|
|00001c90| 2f 50 6c 61 6e 56 00 00 | 00 00 00 00 74 5c c8 00 |/PlanV..|....t\..|
|00001ca0| 73 f4 4c 00 00 00 0f 44 | 6f 4d 65 6e 75 28 31 35 |s.L....D|oMenu(15|
|00001cb0| 32 32 2c 31 29 3b 00 00 | 00 43 05 79 2c a4 00 00 |22,1);..|.C.y,...|
|00001cc0| 00 00 00 31 00 00 00 40 | 0c 51 75 69 63 6b 20 52 |...1...@|.Quick R|
|00001cd0| 65 6e 64 65 72 00 00 00 | 00 00 00 00 00 00 00 74 |ender...|.......t|
|00001ce0| 5c c8 00 73 f4 4c 00 00 | 00 0f 44 6f 4d 65 6e 75 |\..s.L..|..DoMenu|
|00001cf0| 28 31 35 32 34 2c 32 29 | 3b 00 00 00 43 05 79 2c |(1524,2)|;...C.y,|
|00001d00| a4 00 00 00 00 00 31 00 | 00 00 40 0b 50 65 72 73 |......1.|..@.Pers|
|00001d10| 70 65 63 74 69 76 65 00 | 00 00 00 00 00 00 00 00 |pective.|........|
|00001d20| 00 00 74 5c c8 00 73 f4 | 4c 00 00 00 0f 44 6f 4d |..t\..s.|L....DoM|
|00001d30| 65 6e 75 28 31 35 32 33 | 2c 33 29 3b 00 00 00 43 |enu(1523|,3);...C|
|00001d40| 05 79 2c a4 00 00 00 00 | 00 31 00 00 00 40 0a 4f |.y,.....|.1...@.O|
|00001d50| 72 74 68 6f 67 6f 6e 61 | 6c 00 00 00 00 00 00 00 |rthogona|l.......|
|00001d60| 00 00 00 00 00 74 5c c8 | 00 73 f4 4c 00 00 00 0f |.....t\.|.s.L....|
|00001d70| 44 6f 4d 65 6e 75 28 31 | 35 32 33 2c 32 29 3b 00 |DoMenu(1|523,2);.|
|00001d80| 00 00 16 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d90| 00 00 83 26 4c 00 00 00 | 52 05 79 2c a4 00 00 00 |...&L...|R.y,....|
|00001da0| 00 00 33 00 00 00 40 00 | 00 00 00 00 00 00 00 00 |..3...@.|........|
|00001db0| 00 80 00 00 6c 01 2d 01 | 04 01 cc 00 83 4c 50 00 |....l.-.|.....LP.|
|00001dc0| 83 25 8c 00 83 25 30 09 | 55 74 69 6c 69 74 69 65 |.%...%0.|Utilitie|
|00001dd0| 73 00 00 00 00 00 21 11 | 97 01 1d 00 e5 00 00 40 |s.....!.|.......@|
|00001de0| 81 c7 e8 00 31 00 6a 00 | 00 00 b7 05 79 2c a4 00 |....1.j.|....y,..|
|00001df0| 83 25 88 00 31 00 00 00 | 40 0c 52 65 73 65 74 20 |.%..1...|@.Reset |
|00001e00| 4f 72 69 67 69 6e 00 00 | 00 00 00 00 00 00 00 00 |Origin..|........|
|00001e10| 00 00 00 00 00 00 00 00 | 00 00 83 50 72 6f 63 65 |........|...Proce|
|00001e20| 64 75 72 65 20 52 53 4f | 72 69 67 3b 0d 56 41 52 |dure RSO|rig;.VAR|
|00001e30| 0d 09 58 31 2c 59 31 2c | 4d 20 3a 20 52 45 41 4c |..X1,Y1,|M : REAL|
|00001e40| 3b 0d 42 45 47 49 4e 0d | 09 4d 3a 3d 2d 31 3b 0d |;.BEGIN.|.M:=-1;.|
|00001e50| 09 47 65 74 4f 72 69 67 | 69 6e 28 58 31 2c 59 31 |.GetOrig|in(X1,Y1|
|00001e60| 29 3b 0d 09 58 31 3a 3d | 58 31 2a 4d 3b 0d 09 59 |);..X1:=|X1*M;..Y|
|00001e70| 31 3a 3d 59 31 2a 4d 3b | 0d 09 53 65 74 4f 72 69 |1:=Y1*M;|..SetOri|
|00001e80| 67 69 6e 28 58 31 2c 59 | 31 29 3b 0d 45 4e 44 3b |gin(X1,Y|1);.END;|
|00001e90| 0d 52 75 6e 28 52 53 4f | 72 69 67 29 3b 0d 00 00 |.Run(RSO|rig);...|
|00001ea0| 00 60 00 00 00 00 00 00 | 00 00 00 3b 00 00 00 41 |.`......|...;...A|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 04 f9 05 79 2c a4 00 83 | 25 80 00 31 00 00 00 40 |...y,...|%..1...@|
|00001f10| 0f 4f 62 6a 65 63 74 20 | 49 64 65 6e 74 69 66 79 |.Object |Identify|
|00001f20| 00 00 00 00 00 00 00 73 | 24 2c 00 72 bb ac 00 00 |.......s|$,.r....|
|00001f30| 04 c5 50 72 6f 63 65 64 | 75 72 65 20 57 68 61 74 |..Proced|ure What|
|00001f40| 41 6d 49 3b 0d 56 41 52 | 0d 09 58 31 2c 59 31 20 |AmI;.VAR|..X1,Y1 |
|00001f50| 3a 20 52 45 41 4c 3b 0d | 09 4f 62 48 64 20 3a 20 |: REAL;.|.ObHd : |
|00001f60| 48 41 4e 44 4c 45 3b 0d | 09 54 56 61 6c 20 3a 20 |HANDLE;.|.TVal : |
|00001f70| 49 4e 54 45 47 45 52 3b | 0d 09 4d 53 74 72 20 3a |INTEGER;|..MStr :|
|00001f80| 20 53 54 52 49 4e 47 3b | 0d 42 45 47 49 4e 0d 09 | STRING;|.BEGIN..|
|00001f90| 47 65 74 50 74 28 58 31 | 2c 59 31 29 3b 0d 09 4f |GetPt(X1|,Y1);..O|
|00001fa0| 62 48 64 3a 3d 50 69 63 | 6b 4f 62 6a 65 63 74 28 |bHd:=Pic|kObject(|
|00001fb0| 58 31 2c 59 31 29 3b 0d | 09 54 56 61 6c 3a 3d 47 |X1,Y1);.|.TVal:=G|
|00001fc0| 65 74 54 79 70 65 28 4f | 62 48 64 29 3b 0d 09 49 |etType(O|bHd);..I|
|00001fd0| 46 20 54 56 61 6c 20 3c | 3e 20 30 20 54 68 65 6e |F TVal <|> 0 Then|
|00001fe0| 20 42 45 47 49 4e 0d 09 | 09 49 46 20 54 56 61 6c | BEGIN..|.IF TVal|
|00001ff0| 20 3d 20 32 20 54 48 45 | 4e 0d 09 09 4d 53 74 72 | = 2 THE|N...MStr|
|00002000| 3a 3d 27 20 4c 69 6e 65 | 27 0d 09 09 45 4c 53 45 |:=' Line|'...ELSE|
|00002010| 20 49 46 20 54 56 61 6c | 20 3d 20 33 20 54 48 45 | IF TVal| = 3 THE|
|00002020| 4e 0d 09 09 4d 53 74 72 | 3a 3d 27 20 52 65 63 74 |N...MStr|:=' Rect|
|00002030| 61 6e 67 6c 65 27 0d 09 | 09 45 4c 53 45 20 49 46 |angle'..|.ELSE IF|
|00002040| 20 54 56 61 6c 20 3d 20 | 34 20 54 48 45 4e 0d 09 | TVal = |4 THEN..|
|00002050| 09 4d 53 74 72 3a 3d 27 | 20 43 69 72 63 6c 65 2f |.MStr:='| Circle/|
|00002060| 45 6c 6c 69 70 73 65 27 | 0d 09 09 45 4c 53 45 20 |Ellipse'|...ELSE |
|00002070| 49 46 20 54 56 61 6c 20 | 3d 20 35 20 54 48 45 4e |IF TVal |= 5 THEN|
|00002080| 0d 09 09 4d 53 74 72 3a | 3d 27 20 50 6f 6c 79 67 |...MStr:|=' Polyg|
|00002090| 6f 6e 27 0d 09 09 45 4c | 53 45 20 49 46 20 54 56 |on'...EL|SE IF TV|
|000020a0| 61 6c 20 3d 20 36 20 54 | 48 45 4e 0d 09 09 4d 53 |al = 6 T|HEN...MS|
|000020b0| 74 72 3a 3d 27 20 41 72 | 63 27 0d 09 09 45 4c 53 |tr:=' Ar|c'...ELS|
|000020c0| 45 20 49 46 20 54 56 61 | 6c 20 3d 20 38 20 54 48 |E IF TVa|l = 8 TH|
|000020d0| 45 4e 0d 09 09 4d 53 74 | 72 3a 3d 27 20 46 72 65 |EN...MSt|r:=' Fre|
|000020e0| 65 68 61 6e 64 20 4c 69 | 6e 65 27 0d 09 09 45 4c |ehand Li|ne'...EL|
|000020f0| 53 45 20 49 46 20 54 56 | 61 6c 20 3d 20 31 30 20 |SE IF TV|al = 10 |
|00002100| 54 48 45 4e 0d 09 09 4d | 53 74 72 3a 3d 27 20 54 |THEN...M|Str:=' T|
|00002110| 65 78 74 20 53 74 72 69 | 6e 67 27 0d 09 09 45 4c |ext Stri|ng'...EL|
|00002120| 53 45 20 49 46 20 54 56 | 61 6c 20 3d 20 31 31 20 |SE IF TV|al = 11 |
|00002130| 54 48 45 4e 0d 09 09 4d | 53 74 72 3a 3d 27 20 47 |THEN...M|Str:=' G|
|00002140| 72 6f 75 70 27 0d 09 09 | 45 4c 53 45 20 49 46 20 |roup'...|ELSE IF |
|00002150| 54 56 61 6c 20 3d 20 31 | 32 20 54 48 45 4e 0d 09 |TVal = 1|2 THEN..|
|00002160| 09 4d 53 74 72 3a 3d 27 | 20 51 75 61 72 74 65 72 |.MStr:='| Quarter|
|00002170| 20 41 72 63 27 0d 09 09 | 45 4c 53 45 20 49 46 20 | Arc'...|ELSE IF |
|00002180| 54 56 61 6c 20 3d 20 31 | 35 20 54 48 45 4e 0d 09 |TVal = 1|5 THEN..|
|00002190| 09 4d 53 74 72 3a 3d 27 | 20 53 79 6d 62 6f 6c 27 |.MStr:='| Symbol'|
|000021a0| 0d 09 09 45 4c 53 45 20 | 49 46 20 54 56 61 6c 20 |...ELSE |IF TVal |
|000021b0| 3d 20 31 37 20 54 48 45 | 4e 0d 09 09 4d 53 74 72 |= 17 THE|N...MStr|
|000021c0| 3a 3d 27 20 4c 6f 63 75 | 73 27 0d 09 09 45 4c 53 |:=' Locu|s'...ELS|
|000021d0| 45 20 49 46 20 54 56 61 | 6c 20 3d 20 32 31 20 54 |E IF TVa|l = 21 T|
|000021e0| 48 45 4e 0d 09 09 4d 53 | 74 72 3a 3d 27 20 50 6f |HEN...MS|tr:=' Po|
|000021f0| 6c 79 6c 69 6e 65 27 0d | 09 09 45 4c 53 45 20 49 |lyline'.|..ELSE I|
|00002200| 46 20 54 56 61 6c 20 3d | 20 32 34 20 54 48 45 4e |F TVal =| 24 THEN|
|00002210| 0d 09 09 4d 53 74 72 3a | 3d 27 20 45 78 74 72 75 |...MStr:|=' Extru|
|00002220| 64 65 27 0d 09 09 45 4c | 53 45 20 49 46 20 54 56 |de'...EL|SE IF TV|
|00002230| 61 6c 20 3d 20 32 35 20 | 54 48 45 4e 0d 09 09 4d |al = 25 |THEN...M|
|00002240| 53 74 72 3a 3d 27 20 33 | 2d 44 20 50 6f 6c 79 67 |Str:=' 3|-D Polyg|
|00002250| 6f 6e 27 0d 09 09 45 4c | 53 45 20 49 46 20 54 56 |on'...EL|SE IF TV|
|00002260| 61 6c 20 3d 20 32 39 20 | 54 48 45 4e 0d 09 09 4d |al = 29 |THEN...M|
|00002270| 53 74 72 3a 3d 27 20 4c | 61 79 65 72 20 4c 69 6e |Str:=' L|ayer Lin|
|00002280| 6b 27 0d 09 09 45 4c 53 | 45 20 49 46 20 54 56 61 |k'...ELS|E IF TVa|
|00002290| 6c 20 3d 20 33 34 20 54 | 48 45 4e 0d 09 09 4d 53 |l = 34 T|HEN...MS|
|000022a0| 74 72 3a 3d 27 20 53 77 | 65 65 70 27 0d 09 09 45 |tr:=' Sw|eep'...E|
|000022b0| 4c 53 45 20 49 46 20 54 | 56 61 6c 20 3d 20 33 38 |LSE IF T|Val = 38|
|000022c0| 20 54 48 45 4e 0d 09 09 | 4d 53 74 72 3a 3d 27 20 | THEN...|MStr:=' |
|000022d0| 4d 75 6c 74 69 70 6c 65 | 20 45 78 74 72 75 64 65 |Multiple| Extrude|
|000022e0| 27 0d 09 09 45 4c 53 45 | 20 49 46 20 54 56 61 6c |'...ELSE| IF TVal|
|000022f0| 20 3d 20 34 30 20 54 48 | 45 4e 0d 09 09 4d 53 74 | = 40 TH|EN...MSt|
|00002300| 72 3a 3d 27 20 4d 65 73 | 68 27 0d 09 09 45 4c 53 |r:=' Mes|h'...ELS|
|00002310| 45 20 49 46 20 54 56 61 | 6c 20 3d 20 36 33 20 54 |E IF TVa|l = 63 T|
|00002320| 48 45 4e 0d 09 09 4d 53 | 74 72 3a 3d 27 44 69 6d |HEN...MS|tr:='Dim|
|00002330| 65 6e 73 69 6f 6e 27 0d | 09 09 45 4c 53 45 20 49 |ension'.|..ELSE I|
|00002340| 46 20 54 56 61 6c 20 3d | 20 36 38 20 54 48 45 4e |F TVal =| 68 THEN|
|00002350| 0d 09 09 4d 53 74 72 3a | 3d 27 20 57 61 6c 6c 27 |...MStr:|=' Wall'|
|00002360| 0d 09 09 45 4c 53 45 20 | 49 46 20 54 56 61 6c 20 |...ELSE |IF TVal |
|00002370| 3d 20 37 31 20 54 48 45 | 4e 0d 09 09 4d 53 74 72 |= 71 THE|N...MStr|
|00002380| 3a 3d 27 20 52 6f 6f 66 | 2f 46 6c 6f 6f 72 27 0d |:=' Roof|/Floor'.|
|00002390| 09 09 45 4e 44 3b 0d 09 | 4d 53 74 72 3a 3d 43 6f |..END;..|MStr:=Co|
|000023a0| 6e 63 61 74 28 27 4f 62 | 6a 65 63 74 20 69 73 20 |ncat('Ob|ject is |
|000023b0| 3a 20 27 2c 20 4d 53 74 | 72 29 3b 0d 09 4d 65 73 |: ', MSt|r);..Mes|
|000023c0| 73 61 67 65 28 4d 53 74 | 72 29 3b 0d 09 57 61 69 |sage(MSt|r);..Wai|
|000023d0| 74 28 32 29 3b 0d 09 43 | 6c 72 4d 65 73 73 61 67 |t(2);..C|lrMessag|
|000023e0| 65 3b 0d 45 4e 44 3b 0d | 52 75 6e 28 57 68 61 74 |e;.END;.|Run(What|
|000023f0| 41 6d 49 29 3b 0d 0d 00 | 00 00 60 05 79 2c a4 00 |AmI);...|..`.y,..|
|00002400| 00 00 00 00 3b 00 00 00 | 41 00 00 00 00 00 00 00 |....;...|A.......|
|00002410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002450| 00 00 00 00 00 00 00 00 | 00 00 60 05 79 2c a4 00 |........|..`.y,..|
|00002460| 00 00 00 00 3b 00 00 00 | 41 00 00 00 00 00 00 00 |....;...|A.......|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024b0| 00 00 00 00 00 00 00 00 | 00 00 60 00 00 00 00 00 |........|..`.....|
|000024c0| 00 00 00 00 3b 00 00 00 | 41 00 00 00 00 00 00 00 |....;...|A.......|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 e5 05 79 2c a4 00 |........|....y,..|
|00002520| 83 25 70 00 31 00 00 00 | 40 0b 50 74 20 4c 6f 63 |.%p.1...|@.Pt Loc|
|00002530| 61 74 69 6f 6e 00 00 00 | 00 00 00 00 00 00 00 00 |ation...|........|
|00002540| 6c 2c 64 00 6b c3 d0 00 | 00 00 b1 50 72 6f 63 65 |l,d.k...|...Proce|
|00002550| 64 75 72 65 20 50 74 4c | 6f 63 3b 0d 56 41 52 0d |dure PtL|oc;.VAR.|
|00002560| 09 58 31 2c 59 31 20 3a | 20 52 45 41 4c 3b 0d 09 |.X1,Y1 :| REAL;..|
|00002570| 53 31 2c 53 32 2c 4d 53 | 74 72 20 3a 20 53 54 52 |S1,S2,MS|tr : STR|
|00002580| 49 4e 47 3b 0d 42 45 47 | 49 4e 0d 09 47 65 74 50 |ING;.BEG|IN..GetP|
|00002590| 74 28 58 31 2c 59 31 29 | 3b 0d 09 53 31 3a 3d 4e |t(X1,Y1)|;..S1:=N|
|000025a0| 75 6d 32 53 74 72 46 28 | 58 31 29 3b 0d 09 53 32 |um2StrF(|X1);..S2|
|000025b0| 3a 3d 4e 75 6d 32 53 74 | 72 46 28 59 31 29 3b 0d |:=Num2St|rF(Y1);.|
|000025c0| 09 4d 53 74 72 3a 3d 43 | 6f 6e 63 61 74 28 53 31 |.MStr:=C|oncat(S1|
|000025d0| 2c 27 2c 20 27 2c 53 32 | 29 3b 0d 09 4d 65 73 73 |,', ',S2|);..Mess|
|000025e0| 61 67 65 28 4d 53 74 72 | 29 3b 0d 45 4e 44 3b 0d |age(MStr|);.END;.|
|000025f0| 52 75 6e 28 50 74 4c 6f | 63 29 3b 0d 00 00 00 60 |Run(PtLo|c);....`|
|00002600| 00 00 00 00 00 00 00 00 | 00 3b 00 00 00 41 00 00 |........|.;...A..|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 cb |........|........|
|00002660| 05 79 2c a4 00 00 00 00 | 00 31 00 00 00 40 10 4f |.y,.....|.1...@.O|
|00002670| 62 6a 65 63 74 73 20 49 | 6e 20 47 72 6f 75 70 00 |bjects I|n Group.|
|00002680| 00 00 00 00 00 6d f9 64 | 00 6d 90 c4 00 00 02 97 |.....m.d|.m......|
|00002690| 50 72 6f 63 65 64 75 72 | 65 20 4f 62 49 6e 47 72 |Procedur|e ObInGr|
|000026a0| 70 3b 0d 56 41 52 0d 09 | 4f 62 48 64 2c 4f 62 48 |p;.VAR..|ObHd,ObH|
|000026b0| 64 32 20 3a 20 48 41 4e | 44 4c 45 3b 0d 09 58 31 |d2 : HAN|DLE;..X1|
|000026c0| 2c 59 31 20 3a 20 52 45 | 41 4c 3b 0d 09 4e 6d 4f |,Y1 : RE|AL;..NmO|
|000026d0| 62 73 20 3a 20 53 54 52 | 49 4e 47 3b 0d 09 49 6e |bs : STR|ING;..In|
|000026e0| 64 78 2c 4f 62 54 79 70 | 20 3a 20 49 4e 54 45 47 |dx,ObTyp| : INTEG|
|000026f0| 45 52 3b 0d 42 45 47 49 | 4e 0d 09 47 65 74 50 74 |ER;.BEGI|N..GetPt|
|00002700| 28 58 31 2c 59 31 29 3b | 0d 09 4f 62 48 64 3a 3d |(X1,Y1);|..ObHd:=|
|00002710| 50 69 63 6b 4f 62 6a 65 | 63 74 28 58 31 2c 59 31 |PickObje|ct(X1,Y1|
|00002720| 29 3b 0d 09 4f 62 54 79 | 70 3a 3d 47 65 74 54 79 |);..ObTy|p:=GetTy|
|00002730| 70 65 28 4f 62 48 64 29 | 3b 0d 09 49 46 20 28 4f |pe(ObHd)|;..IF (O|
|00002740| 62 48 64 20 3c 3e 20 6e | 69 6c 29 20 41 4e 44 20 |bHd <> n|il) AND |
|00002750| 28 4f 62 54 79 70 20 3d | 20 31 31 29 20 54 48 45 |(ObTyp =| 11) THE|
|00002760| 4e 20 42 45 47 49 4e 0d | 09 09 49 4e 44 58 3a 3d |N BEGIN.|..INDX:=|
|00002770| 30 3b 0d 09 09 4f 62 48 | 64 32 3a 3d 46 49 6e 47 |0;...ObH|d2:=FInG|
|00002780| 72 6f 75 70 28 4f 62 48 | 64 29 3b 0d 09 09 57 48 |roup(ObH|d);...WH|
|00002790| 49 4c 45 20 4f 62 48 64 | 32 20 3c 3e 20 6e 69 6c |ILE ObHd|2 <> nil|
|000027a0| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 09 49 4e 44 | DO BEGI|N....IND|
|000027b0| 58 3a 3d 49 4e 44 58 2b | 31 3b 0d 09 09 09 4f 62 |X:=INDX+|1;....Ob|
|000027c0| 48 64 32 3a 3d 4e 65 78 | 74 4f 62 6a 28 4f 62 48 |Hd2:=Nex|tObj(ObH|
|000027d0| 64 32 29 3b 0d 09 09 45 | 4e 44 3b 0d 09 09 4e 6d |d2);...E|ND;...Nm|
|000027e0| 4f 62 73 3a 3d 4e 75 6d | 32 53 74 72 28 30 2c 49 |Obs:=Num|2Str(0,I|
|000027f0| 4e 44 58 29 3b 0d 09 09 | 4e 6d 4f 62 73 3a 3d 43 |NDX);...|NmObs:=C|
|00002800| 6f 6e 63 61 74 28 27 4f | 62 6a 65 63 74 73 20 69 |oncat('O|bjects i|
|00002810| 6e 20 47 72 6f 75 70 20 | 3a 20 27 2c 20 4e 6d 4f |n Group |: ', NmO|
|00002820| 62 73 29 3b 0d 09 09 4d | 65 73 73 61 67 65 28 4e |bs);...M|essage(N|
|00002830| 6d 4f 62 73 29 3b 0d 09 | 09 57 61 69 74 28 33 29 |mObs);..|.Wait(3)|
|00002840| 3b 0d 09 09 43 6c 72 4d | 65 73 73 61 67 65 3b 0d |;...ClrM|essage;.|
|00002850| 09 45 4e 44 0d 09 45 4c | 53 45 20 42 45 47 49 4e |.END..EL|SE BEGIN|
|00002860| 0d 09 09 49 46 20 4f 62 | 48 64 20 3d 20 6e 69 6c |...IF Ob|Hd = nil|
|00002870| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 41 | THEN BE|GIN....A|
|00002880| 6c 72 74 44 69 61 6c 6f | 67 28 27 20 20 20 20 20 |lrtDialo|g('     |
|00002890| 20 20 20 20 20 20 4e 6f | 20 6f 62 6a 65 63 74 20 |      No| object |
|000028a0| 73 65 6c 65 63 74 65 64 | 20 21 27 29 3b 0d 09 09 |selected| !');...|
|000028b0| 09 45 4e 44 0d 09 09 45 | 4c 53 45 20 49 46 20 4f |.END...E|LSE IF O|
|000028c0| 62 54 79 70 20 3c 3e 20 | 31 31 20 54 48 45 4e 20 |bTyp <> |11 THEN |
|000028d0| 42 45 47 49 4e 0d 09 09 | 09 41 6c 72 74 44 69 61 |BEGIN...|.AlrtDia|
|000028e0| 6c 6f 67 28 27 20 20 20 | 4f 62 6a 65 63 74 20 69 |log('   |Object i|
|000028f0| 73 20 6e 6f 74 20 61 20 | 67 72 6f 75 70 2e 2e 2e |s not a |group...|
|00002900| 27 29 3b 0d 09 09 09 45 | 4e 44 3b 0d 09 45 4e 44 |');....E|ND;..END|
|00002910| 3b 0d 45 4e 44 3b 0d 52 | 75 6e 28 4f 62 49 6e 47 |;.END;.R|un(ObInG|
|00002920| 72 70 29 3b 0d 0d 0d 00 | 00 02 2f 05 79 2c a4 00 |rp);....|../.y,..|
|00002930| 83 25 64 00 31 00 00 00 | 40 0c 4f 62 6a 20 4f 6e |.%d.1...|@.Obj On|
|00002940| 20 4c 61 79 65 72 00 00 | 00 00 00 00 00 00 00 00 | Layer..|........|
|00002950| 54 c0 b0 00 54 58 28 00 | 00 01 fb 7b 2a 2a 2a 2a |T...TX(.|...{****|
|00002960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002980| 2a 2a 0d 2a 20 50 72 6f | 63 65 64 75 72 65 20 4f |**.* Pro|cedure O|
|00002990| 62 6a 4c 79 72 0d 2a 20 | a9 31 39 39 32 20 47 72 |bjLyr.* |.1992 Gr|
|000029a0| 61 70 68 73 6f 66 74 2c | 20 49 6e 63 2e 0d 2a 20 |aphsoft,| Inc..* |
|000029b0| 50 72 6f 63 65 64 75 72 | 65 20 4f 62 6a 4c 79 72 |Procedur|e ObjLyr|
|000029c0| 20 61 6c 6c 6f 77 73 20 | 74 68 65 20 75 73 65 72 | allows |the user|
|000029d0| 20 74 6f 20 71 75 65 72 | 79 20 61 6e 20 6f 62 6a | to quer|y an obj|
|000029e0| 65 63 74 20 74 6f 0d 2a | 20 64 65 74 65 72 6d 69 |ect to.*| determi|
|000029f0| 6e 65 20 77 68 69 63 68 | 20 6c 61 79 65 72 20 74 |ne which| layer t|
|00002a00| 68 65 20 6f 62 6a 65 63 | 74 20 72 65 73 69 64 65 |he objec|t reside|
|00002a10| 73 20 6f 6e 2e 0d 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |s on..**|********|
|00002a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002a30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 7d 0d 0d 50 |********|****}..P|
|00002a40| 72 6f 63 65 64 75 72 65 | 20 4f 62 6a 4c 79 72 3b |rocedure| ObjLyr;|
|00002a50| 0d 56 41 52 0d 09 4f 62 | 48 64 31 2c 4f 62 48 64 |.VAR..Ob|Hd1,ObHd|
|00002a60| 32 20 3a 20 48 41 4e 44 | 4c 45 3b 0d 09 58 31 2c |2 : HAND|LE;..X1,|
|00002a70| 59 31 20 3a 20 52 45 41 | 4c 3b 0d 09 4e 61 6d 20 |Y1 : REA|L;..Nam |
|00002a80| 3a 20 53 54 52 49 4e 47 | 3b 0d 42 45 47 49 4e 0d |: STRING|;.BEGIN.|
|00002a90| 09 43 6c 72 4d 65 73 73 | 61 67 65 3b 0d 09 47 65 |.ClrMess|age;..Ge|
|00002aa0| 74 50 74 28 58 31 2c 59 | 31 29 3b 0d 09 4f 62 48 |tPt(X1,Y|1);..ObH|
|00002ab0| 64 31 3a 3d 50 69 63 6b | 4f 62 6a 65 63 74 28 58 |d1:=Pick|Object(X|
|00002ac0| 31 2c 59 31 29 3b 0d 09 | 4f 62 48 64 32 3a 3d 47 |1,Y1);..|ObHd2:=G|
|00002ad0| 65 74 4c 61 79 65 72 28 | 4f 62 48 64 31 29 3b 0d |etLayer(|ObHd1);.|
|00002ae0| 09 4e 61 6d 3a 3d 47 65 | 74 4c 4e 61 6d 65 28 4f |.Nam:=Ge|tLName(O|
|00002af0| 62 48 64 32 29 3b 0d 09 | 4e 61 6d 3a 3d 43 6f 6e |bHd2);..|Nam:=Con|
|00002b00| 63 61 74 28 27 4f 62 6a | 65 63 74 20 6f 6e 20 6c |cat('Obj|ect on l|
|00002b10| 61 79 65 72 3a 20 27 2c | 4e 61 6d 29 3b 0d 09 4d |ayer: ',|Nam);..M|
|00002b20| 65 73 73 61 67 65 28 4e | 61 6d 29 3b 0d 09 57 61 |essage(N|am);..Wa|
|00002b30| 69 74 28 32 29 3b 0d 09 | 43 6c 72 4d 65 73 73 61 |it(2);..|ClrMessa|
|00002b40| 67 65 3b 0d 45 4e 44 3b | 0d 52 75 6e 28 4f 62 6a |ge;.END;|.Run(Obj|
|00002b50| 4c 79 72 29 3b 0d 00 00 | 00 60 00 00 00 00 00 00 |Lyr);...|.`......|
|00002b60| 00 00 00 3b 00 00 00 41 | 00 00 00 00 00 00 00 00 |...;...A|........|
|00002b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 00 00 | 01 6c 05 79 2c a4 00 00 |........|.l.y,...|
|00002bc0| 00 00 00 31 00 00 00 40 | 0a 47 65 74 20 52 61 64 |...1...@|.Get Rad|
|00002bd0| 69 75 73 ff ff ff 00 72 | 61 54 00 06 7b e2 00 72 |ius....r|aT..{..r|
|00002be0| c4 d8 00 72 5c 58 00 00 | 01 38 50 72 6f 63 65 64 |...r\X..|.8Proced|
|00002bf0| 75 72 65 20 47 65 74 52 | 61 64 3b 0d 56 41 52 0d |ure GetR|ad;.VAR.|
|00002c00| 09 58 31 2c 59 31 2c 52 | 61 64 2c 53 41 6e 67 2c |.X1,Y1,R|ad,SAng,|
|00002c10| 41 41 6e 67 20 3a 20 52 | 45 41 4c 3b 0d 09 4f 62 |AAng : R|EAL;..Ob|
|00002c20| 48 64 20 3a 20 48 41 4e | 44 4c 45 3b 0d 09 52 56 |Hd : HAN|DLE;..RV|
|00002c30| 61 6c 20 3a 20 53 54 52 | 49 4e 47 3b 0d 42 45 47 |al : STR|ING;.BEG|
|00002c40| 49 4e 0d 09 47 65 74 50 | 74 28 58 31 2c 59 31 29 |IN..GetP|t(X1,Y1)|
|00002c50| 3b 0d 09 4f 62 48 64 3a | 3d 50 69 63 6b 4f 62 6a |;..ObHd:|=PickObj|
|00002c60| 65 63 74 28 58 31 2c 59 | 31 29 3b 0d 09 41 41 6e |ect(X1,Y|1);..AAn|
|00002c70| 67 3a 3d 48 41 6e 67 6c | 65 28 4f 62 48 64 29 3b |g:=HAngl|e(ObHd);|
|00002c80| 0d 09 52 61 64 3a 3d 48 | 50 65 72 69 6d 28 4f 62 |..Rad:=H|Perim(Ob|
|00002c90| 48 64 29 3b 0d 09 4d 65 | 73 73 61 67 65 28 52 61 |Hd);..Me|ssage(Ra|
|00002ca0| 64 29 3b 0d 09 57 61 69 | 74 28 32 29 3b 0d 09 52 |d);..Wai|t(2);..R|
|00002cb0| 61 64 3a 3d 28 48 50 65 | 72 69 6d 28 4f 62 48 64 |ad:=(HPe|rim(ObHd|
|00002cc0| 29 2f 44 65 67 32 52 61 | 64 28 41 41 6e 67 29 29 |)/Deg2Ra|d(AAng))|
|00002cd0| 3b 0d 09 52 56 61 6c 3a | 3d 4e 75 6d 32 53 74 72 |;..RVal:|=Num2Str|
|00002ce0| 46 28 52 61 64 29 3b 0d | 09 4d 65 73 73 61 67 65 |F(Rad);.|.Message|
|00002cf0| 28 52 56 61 6c 29 3b 0d | 09 57 61 69 74 28 32 29 |(RVal);.|.Wait(2)|
|00002d00| 3b 0d 09 43 4c 52 4d 45 | 53 53 41 47 45 3b 0d 45 |;..CLRME|SSAGE;.E|
|00002d10| 4e 44 3b 0d 52 75 6e 28 | 47 65 74 52 61 64 29 3b |ND;.Run(|GetRad);|
|00002d20| 0d 0d 00 00 01 27 05 79 | 2c a4 00 83 25 58 00 31 |.....'.y|,...%X.1|
|00002d30| 00 00 00 40 0c 47 65 74 | 20 44 69 73 74 61 6e 63 |...@.Get| Distanc|
|00002d40| 65 00 00 00 00 00 00 00 | 00 00 00 71 42 38 00 70 |e.......|...qB8.p|
|00002d50| d9 8c 00 00 00 f3 50 72 | 6f 63 65 64 75 72 65 20 |......Pr|ocedure |
|00002d60| 47 65 74 44 73 74 3b 0d | 56 41 72 0d 09 58 31 2c |GetDst;.|VAr..X1,|
|00002d70| 59 31 2c 58 32 2c 59 32 | 2c 44 69 73 20 3a 20 52 |Y1,X2,Y2|,Dis : R|
|00002d80| 45 41 4c 3b 0d 09 44 56 | 61 6c 20 3a 20 53 54 52 |EAL;..DV|al : STR|
|00002d90| 49 4e 47 3b 0d 42 45 47 | 49 4e 0d 09 47 65 74 50 |ING;.BEG|IN..GetP|
|00002da0| 74 28 58 31 2c 59 31 29 | 3b 0d 09 47 65 74 50 74 |t(X1,Y1)|;..GetPt|
|00002db0| 28 58 32 2c 59 32 29 3b | 0d 09 44 69 73 3a 3d 44 |(X2,Y2);|..Dis:=D|
|00002dc0| 69 73 74 61 6e 63 65 28 | 58 31 2c 59 31 2c 58 32 |istance(|X1,Y1,X2|
|00002dd0| 2c 59 32 29 3b 0d 09 44 | 56 61 6c 3a 3d 4e 75 6d |,Y2);..D|Val:=Num|
|00002de0| 32 53 74 72 28 33 2c 44 | 69 73 29 3b 0d 09 44 56 |2Str(3,D|is);..DV|
|00002df0| 61 6c 3a 3d 43 6f 6e 63 | 61 74 28 27 44 69 73 74 |al:=Conc|at('Dist|
|00002e00| 61 6e 63 65 20 3d 20 27 | 2c 44 56 61 6c 29 3b 0d |ance = '|,DVal);.|
|00002e10| 09 4d 65 73 73 61 67 65 | 28 44 56 61 6c 29 3b 0d |.Message|(DVal);.|
|00002e20| 09 57 61 69 74 28 32 29 | 3b 0d 09 43 6c 72 4d 65 |.Wait(2)|;..ClrMe|
|00002e30| 73 73 61 67 65 3b 0d 45 | 4e 44 3b 0d 52 75 6e 28 |ssage;.E|ND;.Run(|
|00002e40| 47 65 74 44 73 74 29 3b | 0d 00 00 00 60 00 00 00 |GetDst);|....`...|
|00002e50| 00 00 00 00 00 00 3b 00 | 00 00 41 00 00 00 00 00 |......;.|..A.....|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ea0| 00 00 00 00 00 00 00 00 | 00 00 00 01 e6 05 79 2c |........|......y,|
|00002eb0| a4 00 83 25 50 00 31 00 | 00 00 40 13 44 69 73 74 |...%P.1.|..@.Dist|
|00002ec0| 61 6e 63 65 20 43 6f 6d | 70 6f 6e 65 6e 74 73 20 |ance Com|ponents |
|00002ed0| 94 80 32 99 ca 00 31 6b | ac 00 6f 01 b2 50 72 6f |..2...1k|..o..Pro|
|00002ee0| 63 65 64 75 72 65 20 44 | 69 73 43 6f 6d 3b 0d 56 |cedure D|isCom;.V|
|00002ef0| 41 52 0d 09 58 31 2c 59 | 31 2c 58 32 2c 59 32 2c |AR..X1,Y|1,X2,Y2,|
|00002f00| 44 20 3a 20 52 45 41 4c | 3b 0d 09 44 69 73 2c 44 |D : REAL|;..Dis,D|
|00002f10| 65 6c 74 58 2c 44 65 6c | 74 59 20 3a 20 53 54 52 |eltX,Del|tY : STR|
|00002f20| 49 4e 47 3b 0d 42 45 47 | 49 4e 0d 09 47 65 74 4c |ING;.BEG|IN..GetL|
|00002f30| 69 6e 65 28 58 31 2c 59 | 31 2c 58 32 2c 59 32 29 |ine(X1,Y|1,X2,Y2)|
|00002f40| 3b 0d 09 44 3a 3d 44 69 | 73 74 61 6e 63 65 28 58 |;..D:=Di|stance(X|
|00002f50| 31 2c 59 31 2c 58 32 2c | 59 32 29 3b 0d 09 44 69 |1,Y1,X2,|Y2);..Di|
|00002f60| 73 3a 3d 4e 75 6d 32 53 | 74 72 28 32 2c 44 29 3b |s:=Num2S|tr(2,D);|
|00002f70| 0d 09 44 65 6c 74 58 3a | 3d 4e 75 6d 32 53 74 72 |..DeltX:|=Num2Str|
|00002f80| 28 32 2c 41 62 73 28 58 | 32 2d 58 31 29 29 3b 0d |(2,Abs(X|2-X1));.|
|00002f90| 09 44 65 6c 74 59 3a 3d | 4e 75 6d 32 53 74 72 28 |.DeltY:=|Num2Str(|
|00002fa0| 32 2c 41 62 73 28 59 32 | 2d 59 31 29 29 3b 0d 09 |2,Abs(Y2|-Y1));..|
|00002fb0| 44 69 73 3a 3d 43 6f 6e | 63 61 74 28 27 44 69 73 |Dis:=Con|cat('Dis|
|00002fc0| 74 61 6e 63 65 20 3a 20 | 27 2c 44 69 73 29 3b 0d |tance : |',Dis);.|
|00002fd0| 09 44 65 6c 74 58 3a 3d | 43 6f 6e 63 61 74 28 27 |.DeltX:=|Concat('|
|00002fe0| 58 20 43 6f 6d 70 6f 6e | 65 6e 74 20 3a 20 27 2c |X Compon|ent : ',|
|00002ff0| 44 65 6c 74 58 29 3b 0d | 09 44 65 6c 74 59 3a 3d |DeltX);.|.DeltY:=|
|00003000| 43 6f 6e 63 61 74 28 27 | 59 20 43 6f 6d 70 6f 6e |Concat('|Y Compon|
|00003010| 65 6e 74 20 3a 20 27 2c | 44 65 6c 74 59 29 3b 0d |ent : ',|DeltY);.|
|00003020| 09 4d 65 73 73 61 67 65 | 28 44 69 73 29 3b 0d 09 |.Message|(Dis);..|
|00003030| 57 61 69 74 28 32 29 3b | 0d 09 4d 65 73 73 61 67 |Wait(2);|..Messag|
|00003040| 65 28 44 65 6c 74 58 29 | 3b 0d 09 57 61 69 74 28 |e(DeltX)|;..Wait(|
|00003050| 32 29 3b 0d 09 4d 65 73 | 73 61 67 65 28 44 65 6c |2);..Mes|sage(Del|
|00003060| 74 59 29 3b 0d 09 57 61 | 69 74 28 32 29 3b 0d 09 |tY);..Wa|it(2);..|
|00003070| 43 6c 72 4d 65 73 73 61 | 67 65 3b 0d 45 4e 44 3b |ClrMessa|ge;.END;|
|00003080| 0d 52 75 6e 28 44 69 73 | 43 6f 6d 29 3b 0d 09 00 |.Run(Dis|Com);...|
|00003090| 00 00 60 00 00 00 00 00 | 00 00 00 00 3b 00 00 00 |..`.....|....;...|
|000030a0| 41 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |A.......|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 dc 05 79 2c a4 00 | 83 25 48 00 31 00 00 00 |....y,..|.%H.1...|
|00003100| 40 0a 44 61 74 65 20 53 | 74 61 6d 70 00 00 00 00 |@.Date S|tamp....|
|00003110| 00 00 00 00 00 00 00 00 | 71 42 28 00 70 d9 88 00 |........|qB(.p...|
|00003120| 00 00 a8 50 72 6f 63 65 | 64 75 72 65 20 53 74 61 |...Proce|dure Sta|
|00003130| 6d 70 3b 0d 56 41 52 0d | 09 58 31 2c 59 31 20 3a |mp;.VAR.|.X1,Y1 :|
|00003140| 20 52 45 41 4c 3b 0d 09 | 4f 62 48 64 20 3a 20 48 | REAL;..|ObHd : H|
|00003150| 41 4e 44 4c 45 3b 0d 09 | 44 61 74 56 61 6c 20 3a |ANDLE;..|DatVal :|
|00003160| 20 53 54 52 49 4e 47 3b | 0d 42 45 47 49 4e 0d 09 | STRING;|.BEGIN..|
|00003170| 44 61 74 56 61 6c 3a 3d | 44 61 74 65 28 32 2c 31 |DatVal:=|Date(2,1|
|00003180| 29 3b 0d 09 4f 62 48 64 | 3a 3d 47 65 74 4f 62 6a |);..ObHd|:=GetObj|
|00003190| 65 63 74 28 27 44 61 74 | 65 20 53 74 61 6d 70 27 |ect('Dat|e Stamp'|
|000031a0| 29 3b 0d 09 53 65 74 54 | 65 78 74 28 4f 62 48 64 |);..SetT|ext(ObHd|
|000031b0| 2c 44 61 74 56 61 6c 29 | 3b 0d 45 4e 44 3b 0d 52 |,DatVal)|;.END;.R|
|000031c0| 75 6e 28 53 74 61 6d 70 | 29 3b 0d 00 00 00 60 00 |un(Stamp|);....`.|
|000031d0| 00 00 00 00 00 00 00 00 | 3b 00 00 00 41 00 00 00 |........|;...A...|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 6f 05 |........|......o.|
|00003230| 79 2c a4 00 83 25 40 00 | 31 00 00 00 40 0c 43 65 |y,...%@.|1...@.Ce|
|00003240| 6e 74 65 72 20 50 6f 69 | 6e 74 00 00 00 00 00 00 |nter Poi|nt......|
|00003250| 7b 5a 94 80 23 99 ea 00 | 20 f6 64 00 47 01 3b 50 |{Z..#...| .d.G.;P|
|00003260| 72 6f 63 65 64 75 72 65 | 20 43 65 6e 50 6f 69 6e |rocedure| CenPoin|
|00003270| 74 3b 0d 56 41 52 0d 09 | 58 31 2c 59 31 2c 43 56 |t;.VAR..|X1,Y1,CV|
|00003280| 61 6c 58 2c 43 56 61 6c | 59 20 3a 20 52 45 41 4c |alX,CVal|Y : REAL|
|00003290| 3b 0d 09 4f 62 48 64 20 | 3a 20 48 41 4e 44 4c 45 |;..ObHd |: HANDLE|
|000032a0| 3b 0d 09 43 65 6e 53 74 | 72 2c 43 78 2c 43 79 20 |;..CenSt|r,Cx,Cy |
|000032b0| 3a 20 53 54 52 49 4e 47 | 3b 0d 42 45 47 49 4e 0d |: STRING|;.BEGIN.|
|000032c0| 09 47 65 74 50 74 28 58 | 31 2c 59 31 29 3b 0d 09 |.GetPt(X|1,Y1);..|
|000032d0| 4f 62 48 64 3a 3d 50 69 | 63 6b 4f 62 6a 65 63 74 |ObHd:=Pi|ckObject|
|000032e0| 28 58 31 2c 59 31 29 3b | 0d 09 48 43 65 6e 74 65 |(X1,Y1);|..HCente|
|000032f0| 72 28 4f 62 48 64 2c 43 | 56 61 6c 58 2c 43 56 61 |r(ObHd,C|ValX,CVa|
|00003300| 6c 59 29 3b 0d 09 43 78 | 3a 3d 4e 75 6d 32 53 74 |lY);..Cx|:=Num2St|
|00003310| 72 46 28 43 56 61 6c 58 | 29 3b 0d 09 43 79 3a 3d |rF(CValX|);..Cy:=|
|00003320| 4e 75 6d 32 53 74 72 46 | 28 43 56 61 6c 59 29 3b |Num2StrF|(CValY);|
|00003330| 0d 09 43 65 6e 53 74 72 | 3a 3d 43 6f 6e 63 61 74 |..CenStr|:=Concat|
|00003340| 28 27 43 65 6e 74 65 72 | 20 50 74 20 3a 20 27 2c |('Center| Pt : ',|
|00003350| 43 78 2c 27 2c 27 2c 43 | 79 29 3b 0d 09 4d 65 73 |Cx,',',C|y);..Mes|
|00003360| 73 61 67 65 28 43 65 6e | 53 74 72 29 3b 0d 09 57 |sage(Cen|Str);..W|
|00003370| 61 69 74 28 33 29 3b 0d | 09 43 6c 72 4d 65 73 73 |ait(3);.|.ClrMess|
|00003380| 61 67 65 3b 0d 45 4e 44 | 3b 0d 52 75 6e 28 43 65 |age;.END|;.Run(Ce|
|00003390| 6e 50 6f 69 6e 74 29 3b | 0d 20 00 00 00 60 00 00 |nPoint);|. ...`..|
|000033a0| 00 00 00 00 00 00 00 3b | 00 00 00 41 00 00 00 00 |.......;|...A....|
|000033b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 03 8f 05 79 |........|.......y|
|00003400| 2c a4 00 83 25 38 00 31 | 00 00 00 40 12 41 72 63 |,...%8.1|...@.Arc|
|00003410| 20 53 74 61 72 74 2f 45 | 6e 64 20 50 74 73 2e 00 | Start/E|nd Pts..|
|00003420| 00 00 00 59 6c d0 00 59 | 04 50 00 00 03 5b 50 52 |...Yl..Y|.P...[PR|
|00003430| 4f 43 45 44 55 52 45 20 | 47 65 74 54 68 65 50 74 |OCEDURE |GetThePt|
|00003440| 3b 0d 56 41 52 0d 09 58 | 31 2c 59 31 2c 53 41 6e |;.VAR..X|1,Y1,SAn|
|00003450| 67 2c 41 41 6e 67 2c 43 | 65 6e 58 2c 43 65 6e 59 |g,AAng,C|enX,CenY|
|00003460| 2c 52 2c 44 65 6c 74 58 | 31 2c 44 65 6c 74 58 32 |,R,DeltX|1,DeltX2|
|00003470| 2c 44 65 6c 74 59 31 2c | 44 65 6c 74 59 32 2c 0d |,DeltY1,|DeltY2,.|
|00003480| 09 41 72 63 41 6e 67 20 | 3a 20 52 45 41 4c 3b 0d |.ArcAng |: REAL;.|
|00003490| 09 4f 62 48 64 20 3a 20 | 48 41 4e 44 4c 45 3b 0d |.ObHd : |HANDLE;.|
|000034a0| 09 50 6f 69 6e 74 5f 31 | 2c 50 6f 69 6e 74 5f 32 |.Point_1|,Point_2|
|000034b0| 2c 50 74 31 59 2c 50 74 | 31 58 2c 50 74 32 58 2c |,Pt1Y,Pt|1X,Pt2X,|
|000034c0| 50 74 32 59 2c 41 41 20 | 3a 20 53 54 52 49 4e 47 |Pt2Y,AA |: STRING|
|000034d0| 3b 0d 42 45 47 49 4e 0d | 09 47 65 74 50 74 28 58 |;.BEGIN.|.GetPt(X|
|000034e0| 31 2c 59 31 29 3b 0d 09 | 4f 62 48 64 3a 3d 50 69 |1,Y1);..|ObHd:=Pi|
|000034f0| 63 6b 4f 62 6a 65 63 74 | 28 58 31 2c 59 31 29 3b |ckObject|(X1,Y1);|
|00003500| 0d 09 47 65 74 41 72 63 | 28 4f 62 48 64 2c 53 41 |..GetArc|(ObHd,SA|
|00003510| 6e 67 2c 41 41 6e 67 29 | 3b 0d 09 52 3a 3d 28 48 |ng,AAng)|;..R:=(H|
|00003520| 50 65 72 69 6d 28 4f 62 | 48 64 29 2f 28 44 65 67 |Perim(Ob|Hd)/(Deg|
|00003530| 32 52 61 64 28 41 41 6e | 67 29 29 29 2a 31 32 3b |2Rad(AAn|g)))*12;|
|00003540| 0d 09 48 43 65 6e 74 65 | 72 28 4f 62 48 64 2c 43 |..HCente|r(ObHd,C|
|00003550| 65 6e 58 2c 43 65 6e 59 | 29 3b 0d 09 7b 2d 2d 2d |enX,CenY|);..{---|
|00003560| 2d 2d 2d 43 61 6c 63 20 | 50 74 2e 23 31 2d 2d 2d |---Calc |Pt.#1---|
|00003570| 2d 2d 2d 2d 7d 0d 09 44 | 65 6c 74 59 31 3a 3d 52 |----}..D|eltY1:=R|
|00003580| 2a 28 73 69 6e 28 44 65 | 67 32 52 61 64 28 53 41 |*(sin(De|g2Rad(SA|
|00003590| 6e 67 29 29 29 3b 0d 09 | 44 65 6c 74 58 31 3a 3d |ng)));..|DeltX1:=|
|000035a0| 52 2a 28 63 6f 73 28 44 | 65 67 32 52 61 64 28 53 |R*(cos(D|eg2Rad(S|
|000035b0| 41 6e 67 29 29 29 3b 0d | 09 50 74 31 58 3a 3d 4e |Ang)));.|.Pt1X:=N|
|000035c0| 75 6d 32 53 74 72 46 28 | 28 43 65 6e 58 2b 44 65 |um2StrF(|(CenX+De|
|000035d0| 6c 74 58 31 29 29 3b 0d | 09 50 74 31 59 3a 3d 4e |ltX1));.|.Pt1Y:=N|
|000035e0| 75 6d 32 53 74 72 46 28 | 28 43 65 6e 59 2b 44 65 |um2StrF(|(CenY+De|
|000035f0| 6c 74 59 31 29 29 3b 0d | 09 50 6f 69 6e 74 5f 31 |ltY1));.|.Point_1|
|00003600| 3a 3d 43 6f 6e 63 61 74 | 28 27 53 74 61 72 74 20 |:=Concat|('Start |
|00003610| 50 6f 69 6e 74 20 3a 20 | 27 2c 50 74 31 58 2c 27 |Point : |',Pt1X,'|
|00003620| 2c 27 2c 50 74 31 59 29 | 3b 0d 09 7b 2d 2d 2d 2d |,',Pt1Y)|;..{----|
|00003630| 2d 2d 43 61 6c 63 20 50 | 74 2e 23 32 2d 2d 2d 2d |--Calc P|t.#2----|
|00003640| 2d 2d 2d 7d 0d 09 41 72 | 63 41 6e 67 3a 3d 41 41 |---}..Ar|cAng:=AA|
|00003650| 6e 67 2b 53 41 6e 67 3b | 0d 09 44 65 6c 74 59 32 |ng+SAng;|..DeltY2|
|00003660| 3a 3d 52 2a 28 73 69 6e | 28 44 65 67 32 52 61 64 |:=R*(sin|(Deg2Rad|
|00003670| 28 41 72 63 41 6e 67 29 | 29 29 3b 0d 09 44 65 6c |(ArcAng)|));..Del|
|00003680| 74 58 32 3a 3d 52 2a 28 | 63 6f 73 28 44 65 67 32 |tX2:=R*(|cos(Deg2|
|00003690| 52 61 64 28 41 72 63 41 | 6e 67 29 29 29 3b 0d 09 |Rad(ArcA|ng)));..|
|000036a0| 50 74 32 58 3a 3d 28 4e | 75 6d 32 53 74 72 46 28 |Pt2X:=(N|um2StrF(|
|000036b0| 43 65 6e 58 2b 44 65 6c | 74 58 32 29 29 3b 0d 09 |CenX+Del|tX2));..|
|000036c0| 50 74 32 59 3a 3d 28 4e | 75 6d 32 53 74 72 46 28 |Pt2Y:=(N|um2StrF(|
|000036d0| 43 65 6e 59 2b 44 65 6c | 74 59 32 29 29 3b 0d 09 |CenY+Del|tY2));..|
|000036e0| 50 6f 69 6e 74 5f 32 3a | 3d 43 6f 6e 63 61 74 28 |Point_2:|=Concat(|
|000036f0| 27 45 6e 64 20 50 6f 69 | 6e 74 20 3a 20 27 2c 50 |'End Poi|nt : ',P|
|00003700| 74 32 58 2c 27 2c 27 2c | 50 74 32 59 29 3b 0d 09 |t2X,',',|Pt2Y);..|
|00003710| 7b 2d 2d 2d 4f 75 74 50 | 75 74 2d 2d 2d 2d 7d 0d |{---OutP|ut----}.|
|00003720| 09 4d 65 73 73 61 67 65 | 28 50 6f 69 6e 74 5f 31 |.Message|(Point_1|
|00003730| 29 3b 0d 09 57 61 69 74 | 28 33 29 3b 0d 09 43 6c |);..Wait|(3);..Cl|
|00003740| 72 4d 65 73 73 61 67 65 | 3b 0d 09 4d 65 73 73 61 |rMessage|;..Messa|
|00003750| 67 65 28 50 6f 69 6e 74 | 5f 32 29 3b 0d 09 57 61 |ge(Point|_2);..Wa|
|00003760| 69 74 28 33 29 3b 0d 09 | 43 6c 72 4d 65 73 73 61 |it(3);..|ClrMessa|
|00003770| 67 65 3b 0d 45 4e 44 3b | 0d 52 75 6e 28 47 65 74 |ge;.END;|.Run(Get|
|00003780| 54 68 65 50 74 29 3b 0d | 0d 00 00 00 60 00 00 00 |ThePt);.|....`...|
|00003790| 00 00 00 00 00 00 3b 00 | 00 00 41 00 00 00 00 00 |......;.|..A.....|
|000037a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037e0| 00 00 00 00 00 00 00 00 | 00 00 00 01 34 05 79 2c |........|....4.y,|
|000037f0| a4 00 00 00 00 00 31 00 | 00 00 40 0a 41 72 63 20 |......1.|..@.Arc |
|00003800| 4c 65 6e 67 74 68 00 00 | 00 00 00 00 00 00 00 00 |Length..|........|
|00003810| 00 00 71 42 38 00 70 d9 | 8c 00 00 01 00 50 72 6f |..qB8.p.|.....Pro|
|00003820| 63 65 64 75 72 65 20 41 | 72 4c 67 74 68 3b 0d 56 |cedure A|rLgth;.V|
|00003830| 41 52 0d 09 4f 62 48 64 | 20 3a 20 48 41 4e 44 4c |AR..ObHd| : HANDL|
|00003840| 45 3b 0d 09 58 31 2c 59 | 31 2c 53 20 3a 20 52 45 |E;..X1,Y|1,S : RE|
|00003850| 41 4c 3b 0d 09 56 61 6c | 75 65 20 3a 20 53 54 52 |AL;..Val|ue : STR|
|00003860| 49 4e 47 3b 0d 42 45 47 | 49 4e 0d 09 47 65 74 50 |ING;.BEG|IN..GetP|
|00003870| 74 28 58 31 2c 59 31 29 | 3b 0d 09 4f 62 48 64 3a |t(X1,Y1)|;..ObHd:|
|00003880| 3d 50 69 63 6b 4f 62 6a | 65 63 74 28 58 31 2c 59 |=PickObj|ect(X1,Y|
|00003890| 31 29 3b 0d 09 53 3a 3d | 48 50 65 72 69 6d 28 4f |1);..S:=|HPerim(O|
|000038a0| 62 48 64 29 3b 0d 09 56 | 61 6c 75 65 3a 3d 4e 75 |bHd);..V|alue:=Nu|
|000038b0| 6d 32 53 74 72 28 33 2c | 53 29 3b 0d 09 56 61 6c |m2Str(3,|S);..Val|
|000038c0| 75 65 3a 3d 43 6f 6e 63 | 61 74 28 27 41 72 63 20 |ue:=Conc|at('Arc |
|000038d0| 4c 65 6e 67 74 68 20 3d | 20 27 2c 56 61 6c 75 65 |Length =| ',Value|
|000038e0| 29 3b 0d 09 4d 65 73 73 | 61 67 65 28 56 61 6c 75 |);..Mess|age(Valu|
|000038f0| 65 29 3b 0d 09 57 61 69 | 74 28 32 29 3b 0d 09 43 |e);..Wai|t(2);..C|
|00003900| 6c 72 4d 65 73 73 61 67 | 65 3b 0d 45 4e 44 3b 0d |lrMessag|e;.END;.|
|00003910| 52 75 6e 28 41 72 4c 67 | 74 68 29 3b 0d 00 00 00 |Run(ArLg|th);....|
|00003920| 16 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003930| 83 25 90 00 00 00 52 05 | 79 2c a4 00 00 00 00 00 |.%....R.|y,......|
|00003940| 33 00 00 00 40 00 00 00 | 00 00 00 00 00 00 00 80 |3...@...|........|
|00003950| 00 01 17 01 2d 01 6b 01 | ca 00 83 4d 60 00 83 25 |....-.k.|...M`..%|
|00003960| 28 00 83 24 dc 09 44 72 | 61 77 2f 45 64 69 74 00 |(..$..Dr|aw/Edit.|
|00003970| 00 00 00 00 20 dc 39 01 | 1b 00 dc 00 00 f7 8a 02 |.... .9.|........|
|00003980| 01 00 31 00 6a 00 00 02 | ff 05 79 2c a4 00 83 25 |..1.j...|..y,...%|
|00003990| 24 00 31 00 00 00 40 05 | 4e 75 64 67 65 6e 64 00 |$.1...@.|Nudgend.|
|000039a0| 6e 00 00 00 00 00 00 00 | 00 00 7b 5a 94 80 3b 78 |n.......|..{Z..;x|
|000039b0| 16 00 36 47 90 00 74 02 | cb 50 72 6f 63 65 64 75 |..6G..t.|.Procedu|
|000039c0| 72 65 20 4e 75 64 67 65 | 3b 0d 56 41 52 0d 09 76 |re Nudge|;.VAR..v|
|000039d0| 2c 58 31 2c 59 31 20 3a | 20 52 45 41 4c 3b 0d 09 |,X1,Y1 :| REAL;..|
|000039e0| 53 74 72 31 2c 53 74 72 | 32 20 3a 20 53 54 52 49 |Str1,Str|2 : STRI|
|000039f0| 4e 47 3b 0d 09 4f 62 48 | 64 31 2c 20 4f 62 48 64 |NG;..ObH|d1, ObHd|
|00003a00| 32 20 3a 20 48 41 4e 44 | 4c 45 3b 0d 09 4b 43 6f |2 : HAND|LE;..KCo|
|00003a10| 64 20 3a 20 49 4e 54 45 | 47 45 52 3b 0d 42 45 47 |d : INTE|GER;.BEG|
|00003a20| 49 4e 0d 09 56 3a 3d 41 | 62 73 28 44 69 73 74 44 |IN..V:=A|bs(DistD|
|00003a30| 69 61 6c 6f 67 28 27 45 | 6e 74 65 72 20 6e 75 64 |ialog('E|nter nud|
|00003a40| 67 65 20 64 69 73 74 61 | 6e 63 65 3a 27 2c 27 30 |ge dista|nce:','0|
|00003a50| 27 29 29 3b 0d 09 49 46 | 20 4e 4f 54 20 44 69 64 |'));..IF| NOT Did|
|00003a60| 43 61 6e 63 65 6c 20 54 | 48 45 4e 20 42 45 47 49 |Cancel T|HEN BEGI|
|00003a70| 4e 0d 09 4f 62 48 64 31 | 3a 3d 46 53 41 63 74 4c |N..ObHd1|:=FSActL|
|00003a80| 61 79 65 72 3b 0d 09 43 | 6c 72 4d 65 73 73 61 67 |ayer;..C|lrMessag|
|00003a90| 65 3b 0d 09 49 46 20 4f | 62 48 64 31 20 3c 3e 20 |e;..IF O|bHd1 <> |
|00003aa0| 4e 49 4c 20 54 48 45 4e | 20 42 45 47 49 4e 0d 09 |NIL THEN| BEGIN..|
|00003ab0| 09 53 65 74 53 65 6c 65 | 63 74 28 4f 62 48 64 31 |.SetSele|ct(ObHd1|
|00003ac0| 29 3b 0d 09 09 52 65 64 | 72 61 77 3b 0d 09 09 57 |);...Red|raw;...W|
|00003ad0| 48 49 4c 45 20 4b 43 6f | 64 3c 3e 32 37 20 44 4f |HILE KCo|d<>27 DO|
|00003ae0| 20 42 45 47 49 4e 0d 09 | 09 09 49 46 20 4b 65 79 | BEGIN..|..IF Key|
|00003af0| 44 6f 77 6e 28 4b 43 6f | 64 29 20 54 48 45 4e 20 |Down(KCo|d) THEN |
|00003b00| 42 45 47 49 4e 0d 09 09 | 09 09 49 46 20 4b 43 6f |BEGIN...|..IF KCo|
|00003b10| 64 20 3d 20 32 38 20 54 | 48 45 4e 20 48 4d 6f 76 |d = 28 T|HEN HMov|
|00003b20| 65 28 4f 62 48 64 31 2c | 2d 56 2c 30 29 0d 09 09 |e(ObHd1,|-V,0)...|
|00003b30| 09 09 09 45 4c 53 45 20 | 49 46 20 4b 43 6f 64 20 |...ELSE |IF KCod |
|00003b40| 3d 20 32 39 20 54 48 45 | 4e 20 48 4d 6f 76 65 28 |= 29 THE|N HMove(|
|00003b50| 4f 62 48 64 31 2c 56 2c | 30 29 0d 09 09 09 09 09 |ObHd1,V,|0)......|
|00003b60| 45 4c 53 45 20 49 46 20 | 4b 43 6f 64 20 3d 20 33 |ELSE IF |KCod = 3|
|00003b70| 30 20 54 48 45 4e 20 48 | 4d 6f 76 65 28 4f 62 48 |0 THEN H|Move(ObH|
|00003b80| 64 31 2c 30 2c 56 29 0d | 09 09 09 09 09 45 4c 53 |d1,0,V).|.....ELS|
|00003b90| 45 20 49 46 20 4b 43 6f | 64 20 3d 20 33 31 20 54 |E IF KCo|d = 31 T|
|00003ba0| 48 45 4e 20 48 4d 6f 76 | 65 28 4f 62 48 64 31 2c |HEN HMov|e(ObHd1,|
|00003bb0| 30 2c 2d 56 29 0d 09 09 | 09 09 09 45 4c 53 45 20 |0,-V)...|...ELSE |
|00003bc0| 49 46 20 4b 43 6f 64 20 | 3d 20 36 33 20 54 48 45 |IF KCod |= 63 THE|
|00003bd0| 4e 20 42 45 47 49 4e 0d | 09 09 09 09 09 09 4d 65 |N BEGIN.|......Me|
|00003be0| 73 73 61 67 65 28 27 4e | 75 64 67 65 20 a9 20 31 |ssage('N|udge . 1|
|00003bf0| 39 39 32 20 47 72 61 70 | 68 73 6f 66 74 2c 20 49 |992 Grap|hsoft, I|
|00003c00| 6e 63 2e 27 29 3b 0d 09 | 09 09 09 09 09 57 61 69 |nc.');..|.....Wai|
|00003c10| 74 28 32 29 3b 0d 09 09 | 09 09 09 09 43 6c 72 4d |t(2);...|....ClrM|
|00003c20| 65 73 73 61 67 65 3b 0d | 09 09 09 09 09 45 4e 44 |essage;.|.....END|
|00003c30| 3b 0d 09 09 09 52 65 64 | 72 61 77 3b 0d 09 09 45 |;....Red|raw;...E|
|00003c40| 4e 44 3b 0d 09 45 4e 44 | 3b 0d 09 53 65 74 44 53 |ND;..END|;..SetDS|
|00003c50| 65 6c 65 63 74 28 4f 62 | 48 64 31 29 3b 0d 09 45 |elect(Ob|Hd1);..E|
|00003c60| 4e 44 3b 0d 09 4b 43 6f | 64 3a 3d 30 3b 0d 45 4e |ND;..KCo|d:=0;.EN|
|00003c70| 44 3b 0d 45 4e 44 3b 0d | 52 75 6e 28 4e 75 64 67 |D;.END;.|Run(Nudg|
|00003c80| 65 29 3b 0d 00 00 00 60 | 05 79 2c a4 00 00 00 00 |e);....`|.y,.....|
|00003c90| 00 3b 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.;...A..|........|
|00003ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ce0| 00 00 00 00 00 00 00 60 | 05 79 2c a4 00 00 00 00 |.......`|.y,.....|
|00003cf0| 00 3b 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.;...A..|........|
|00003d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d40| 00 00 00 00 00 00 00 60 | 05 79 2c a4 00 00 00 00 |.......`|.y,.....|
|00003d50| 00 3b 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.;...A..|........|
|00003d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003da0| 00 00 00 00 00 00 00 60 | 05 79 2c a4 00 00 00 00 |.......`|.y,.....|
|00003db0| 00 3b 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.;...A..|........|
|00003dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e00| 00 00 00 00 00 00 00 60 | 00 00 00 00 00 00 00 00 |.......`|........|
|00003e10| 00 3b 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.;...A..|........|
|00003e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 00 00 01 f2 | 05 79 2c a4 00 83 25 0c |........|.y,...%.|
|00003e70| 00 31 00 00 00 40 0e 33 | 44 20 56 69 65 77 20 52 |.1...@.3|D View R|
|00003e80| 6f 74 61 74 65 00 00 00 | 00 00 00 00 00 00 ff ff |otate...|........|
|00003e90| ff e0 00 00 03 e2 01 be | 50 52 4f 43 45 44 55 52 |........|PROCEDUR|
|00003ea0| 45 20 56 69 65 77 52 6f | 74 3b 0d 56 41 52 0d 09 |E ViewRo|t;.VAR..|
|00003eb0| 4f 62 48 64 20 3a 20 48 | 41 4e 44 4c 45 3b 0d 09 |ObHd : H|ANDLE;..|
|00003ec0| 78 43 2c 79 43 2c 7a 43 | 2c 78 52 2c 79 52 2c 7a |xC,yC,zC|,xR,yR,z|
|00003ed0| 52 2c 78 2c 79 20 3a 20 | 52 45 41 4c 3b 0d 09 4b |R,x,y : |REAL;..K|
|00003ee0| 43 6f 64 20 3a 20 49 4e | 54 45 47 45 52 3b 0d 42 |Cod : IN|TEGER;.B|
|00003ef0| 45 47 49 4e 0d 09 41 6e | 67 6c 65 56 61 72 3b 0d |EGIN..An|gleVar;.|
|00003f00| 09 4f 62 48 64 20 3a 3d | 20 46 53 41 63 74 4c 61 |.ObHd :=| FSActLa|
|00003f10| 79 65 72 3b 0d 09 47 65 | 74 33 44 43 6e 74 72 28 |yer;..Ge|t3DCntr(|
|00003f20| 4f 62 48 64 2c 78 43 2c | 79 43 2c 7a 43 29 3b 0d |ObHd,xC,|yC,zC);.|
|00003f30| 09 41 6e 67 44 69 61 6c | 6f 67 33 44 28 27 45 6e |.AngDial|og3D('En|
|00003f40| 74 65 72 20 74 68 65 20 | 72 6f 74 61 74 69 6f 6e |ter the |rotation|
|00003f50| 20 69 6e 63 72 65 6d 65 | 6e 74 3a 27 2c 27 30 a1 | increme|nt:','0.|
|00003f60| 27 2c 27 30 a1 27 2c 27 | 30 a1 27 2c 78 52 2c 79 |','0.','|0.',xR,y|
|00003f70| 52 2c 7a 52 29 3b 0d 09 | 57 48 49 4c 45 20 20 4b |R,zR);..|WHILE  K|
|00003f80| 43 6f 64 20 3c 3e 20 32 | 37 20 44 4f 20 42 45 47 |Cod <> 2|7 DO BEG|
|00003f90| 49 4e 0d 09 09 49 46 20 | 4b 65 79 44 6f 77 6e 28 |IN...IF |KeyDown(|
|00003fa0| 4b 43 6f 64 29 20 54 48 | 45 4e 20 42 45 47 49 4e |KCod) TH|EN BEGIN|
|00003fb0| 0d 09 09 09 49 46 20 4b | 43 6f 64 20 3d 20 34 33 |....IF K|Cod = 43|
|00003fc0| 20 54 48 45 4e 20 53 65 | 74 56 69 65 77 28 23 78 | THEN Se|tView(#x|
|00003fd0| 52 2c 23 79 52 2c 23 7a | 52 2c 78 43 2c 79 43 2c |R,#yR,#z|R,xC,yC,|
|00003fe0| 7a 43 29 0d 09 09 09 45 | 4c 53 45 20 49 46 20 4b |zC)....E|LSE IF K|
|00003ff0| 43 6f 64 20 3d 20 34 35 | 20 54 48 45 4e 20 53 65 |Cod = 45| THEN Se|
|00004000| 74 56 69 65 77 28 23 2d | 20 78 52 2c 23 2d 20 79 |tView(#-| xR,#- y|
|00004010| 52 2c 23 2d 20 7a 52 2c | 78 43 2c 79 43 2c 7a 43 |R,#- zR,|xC,yC,zC|
|00004020| 29 3b 0d 09 09 09 52 65 | 64 72 61 77 3b 0d 09 09 |);....Re|draw;...|
|00004030| 09 45 4e 44 3b 0d 45 4e | 44 3b 0d 4b 43 6f 64 3a |.END;.EN|D;.KCod:|
|00004040| 3d 30 3b 0d 45 4e 44 3b | 0d 52 75 6e 28 56 69 65 |=0;.END;|.Run(Vie|
|00004050| 77 52 6f 74 29 3b 00 00 | 00 60 00 00 00 00 00 00 |wRot);..|.`......|
|00004060| 00 00 00 3b 00 00 00 41 | 00 00 00 00 00 00 00 00 |...;...A|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040b0| 00 00 00 00 00 00 00 00 | 02 32 05 79 2c a4 00 00 |........|.2.y,...|
|000040c0| 00 00 00 31 00 00 00 40 | 0d 33 44 20 4f 62 6a 20 |...1...@|.3D Obj |
|000040d0| 52 6f 74 61 74 65 00 00 | 00 00 00 00 00 00 00 00 |Rotate..|........|
|000040e0| 00 00 00 00 00 00 00 00 | 01 fd 50 52 4f 43 45 44 |........|..PROCED|
|000040f0| 55 52 45 20 4f 62 52 6f | 74 3b 0d 56 41 52 0d 09 |URE ObRo|t;.VAR..|
|00004100| 4f 62 48 64 20 3a 20 48 | 41 4e 44 4c 45 3b 0d 09 |ObHd : H|ANDLE;..|
|00004110| 78 43 2c 79 43 2c 7a 43 | 2c 78 52 2c 79 52 2c 7a |xC,yC,zC|,xR,yR,z|
|00004120| 52 2c 78 2c 79 20 3a 20 | 52 45 41 4c 3b 0d 09 4b |R,x,y : |REAL;..K|
|00004130| 43 6f 64 20 3a 20 49 4e | 54 45 47 45 52 3b 0d 42 |Cod : IN|TEGER;.B|
|00004140| 45 47 49 4e 0d 09 41 6e | 67 6c 65 56 61 72 3b 0d |EGIN..An|gleVar;.|
|00004150| 09 4f 62 48 64 20 3a 3d | 20 46 53 41 63 74 4c 61 |.ObHd :=| FSActLa|
|00004160| 79 65 72 3b 0d 09 47 65 | 74 33 44 43 6e 74 72 28 |yer;..Ge|t3DCntr(|
|00004170| 4f 62 48 64 2c 78 43 2c | 79 43 2c 7a 43 29 3b 0d |ObHd,xC,|yC,zC);.|
|00004180| 09 41 6e 67 44 69 61 6c | 6f 67 33 44 28 27 45 6e |.AngDial|og3D('En|
|00004190| 74 65 72 20 74 68 65 20 | 72 6f 74 61 74 69 6f 6e |ter the |rotation|
|000041a0| 20 69 6e 63 72 65 6d 65 | 6e 74 3a 27 2c 27 30 a1 | increme|nt:','0.|
|000041b0| 27 2c 27 30 a1 27 2c 27 | 30 a1 27 2c 78 52 2c 79 |','0.','|0.',xR,y|
|000041c0| 52 2c 7a 52 29 3b 0d 6d | 65 73 73 61 67 65 28 27 |R,zR);.m|essage('|
|000041d0| 70 72 65 73 73 20 2b 20 | 6f 72 20 2d 20 6b 65 79 |press + |or - key|
|000041e0| 2c 20 65 73 63 20 6f 72 | 20 63 6d 64 20 70 65 72 |, esc or| cmd per|
|000041f0| 69 6f 64 20 74 6f 20 65 | 6e 64 27 29 3b 0d 09 57 |iod to e|nd');..W|
|00004200| 48 49 4c 45 20 20 4b 43 | 6f 64 20 3c 3e 20 32 37 |HILE  KC|od <> 27|
|00004210| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 49 46 20 4b | DO BEGI|N...IF K|
|00004220| 65 79 44 6f 77 6e 28 4b | 43 6f 64 29 20 54 48 45 |eyDown(K|Cod) THE|
|00004230| 4e 20 42 45 47 49 4e 0d | 09 09 09 49 46 20 4b 43 |N BEGIN.|...IF KC|
|00004240| 6f 64 20 3d 20 34 33 20 | 54 48 45 4e 20 53 65 74 |od = 43 |THEN Set|
|00004250| 33 44 52 6f 74 28 4f 62 | 48 64 2c 23 78 52 2c 23 |3DRot(Ob|Hd,#xR,#|
|00004260| 79 52 2c 23 7a 52 2c 78 | 43 2c 79 43 2c 7a 43 29 |yR,#zR,x|C,yC,zC)|
|00004270| 0d 09 09 09 45 4c 53 45 | 20 49 46 20 4b 43 6f 64 |....ELSE| IF KCod|
|00004280| 20 3d 20 34 35 20 54 48 | 45 4e 20 53 65 74 33 44 | = 45 TH|EN Set3D|
|00004290| 52 6f 74 28 4f 62 48 64 | 2c 23 2d 20 78 52 2c 23 |Rot(ObHd|,#- xR,#|
|000042a0| 2d 20 79 52 2c 23 2d 20 | 7a 52 2c 78 43 2c 79 43 |- yR,#- |zR,xC,yC|
|000042b0| 2c 7a 43 29 3b 0d 09 09 | 09 52 65 64 72 61 77 3b |,zC);...|.Redraw;|
|000042c0| 0d 09 09 09 45 4e 44 3b | 0d 45 4e 44 3b 0d 4b 43 |....END;|.END;.KC|
|000042d0| 6f 64 3a 3d 30 3b 0d 45 | 4e 44 3b 0d 52 75 6e 28 |od:=0;.E|ND;.Run(|
|000042e0| 4f 62 52 6f 74 29 3b 02 | 00 00 03 05 05 79 2c a4 |ObRot);.|.....y,.|
|000042f0| 00 83 1b 40 00 31 00 00 | 00 40 09 33 44 20 43 65 |...@.1..|.@.3D Ce|
|00004300| 6e 74 65 72 00 01 00 01 | 00 00 00 00 00 00 00 00 |nter....|........|
|00004310| 00 00 ff ff ff e0 00 00 | 03 e2 02 d0 50 52 4f 43 |........|....PROC|
|00004320| 45 44 55 52 45 20 43 65 | 6e 74 65 72 33 44 3b 0d |EDURE Ce|nter3D;.|
|00004330| 56 41 52 20 66 69 72 73 | 74 6c 69 6e 65 2c 6e 65 |VAR firs|tline,ne|
|00004340| 77 6c 69 6e 65 20 3a 20 | 56 45 43 54 4f 52 3b 0d |wline : |VECTOR;.|
|00004350| 09 78 31 2c 78 32 2c 79 | 31 2c 79 32 2c 7a 31 2c |.x1,x2,y|1,y2,z1,|
|00004360| 7a 32 2c 6c 65 6e 67 74 | 68 2c 68 65 69 67 68 74 |z2,lengt|h,height|
|00004370| 2c 77 69 64 74 68 2c 64 | 65 70 74 68 20 3a 20 52 |,width,d|epth : R|
|00004380| 45 41 4c 3b 0d 09 68 20 | 3a 20 48 41 4e 44 4c 45 |EAL;..h |: HANDLE|
|00004390| 3b 0d 42 45 47 49 4e 0d | 09 68 20 3a 3d 20 46 53 |;.BEGIN.|.h := FS|
|000043a0| 41 43 54 4c 41 59 45 52 | 3b 0d 09 09 49 46 20 68 |ACTLAYER|;...IF h|
|000043b0| 20 3c 3e 20 6e 69 6c 20 | 54 48 45 4e 20 42 45 47 | <> nil |THEN BEG|
|000043c0| 49 4e 0d 09 09 6c 65 6e | 67 74 68 20 3a 3d 20 28 |IN...len|gth := (|
|000043d0| 47 45 54 4c 53 43 41 4c | 45 28 41 43 54 4c 41 59 |GETLSCAL|E(ACTLAY|
|000043e0| 45 52 29 20 2a 20 31 2e | 30 29 3b 0d 09 09 47 45 |ER) * 1.|0);...GE|
|000043f0| 54 33 44 43 4e 54 52 20 | 28 68 2c 78 31 2c 79 31 |T3DCNTR |(h,x1,y1|
|00004400| 2c 7a 31 29 3b 0d 09 09 | 47 45 54 33 44 49 4e 46 |,z1);...|GET3DINF|
|00004410| 4f 28 68 2c 68 65 69 67 | 68 74 2c 77 69 64 74 68 |O(h,heig|ht,width|
|00004420| 2c 64 65 70 74 68 29 3b | 0d 09 09 49 46 20 68 65 |,depth);|...IF he|
|00004430| 69 67 68 74 20 3d 20 30 | 20 54 48 45 4e 20 68 65 |ight = 0| THEN he|
|00004440| 69 67 68 74 20 3a 3d 20 | 77 69 64 74 68 3b 0d 09 |ight := |width;..|
|00004450| 09 49 46 20 64 65 70 74 | 68 20 3d 20 30 20 54 48 |.IF dept|h = 0 TH|
|00004460| 45 4e 20 64 65 70 74 68 | 20 3a 3d 20 77 69 64 74 |EN depth| := widt|
|00004470| 68 3b 0d 09 09 78 32 20 | 3a 3d 20 78 31 20 2b 20 |h;...x2 |:= x1 + |
|00004480| 28 77 69 64 74 68 20 2f | 20 32 29 3b 0d 09 09 79 |(width /| 2);...y|
|00004490| 32 20 3a 3d 20 79 31 20 | 2b 20 28 68 65 69 67 68 |2 := y1 |+ (heigh|
|000044a0| 74 20 2f 20 32 29 3b 0d | 09 09 7a 32 20 3a 3d 20 |t / 2);.|..z2 := |
|000044b0| 7a 31 20 2b 20 28 64 65 | 70 74 68 20 2f 20 32 29 |z1 + (de|pth / 2)|
|000044c0| 3b 0d 09 09 66 69 72 73 | 74 6c 69 6e 65 5b 31 5d |;...firs|tline[1]|
|000044d0| 20 3a 3d 20 78 32 20 2d | 20 78 31 3b 0d 09 09 66 | := x2 -| x1;...f|
|000044e0| 69 72 73 74 6c 69 6e 65 | 5b 32 5d 20 3a 3d 20 79 |irstline|[2] := y|
|000044f0| 32 20 2d 20 79 31 3b 0d | 09 09 66 69 72 73 74 6c |2 - y1;.|..firstl|
|00004500| 69 6e 65 5b 33 5d 20 3a | 3d 20 7a 32 20 2d 20 7a |ine[3] :|= z2 - z|
|00004510| 31 3b 0d 09 09 6e 65 77 | 6c 69 6e 65 20 3a 3d 20 |1;...new|line := |
|00004520| 55 4e 49 54 56 45 43 28 | 66 69 72 73 74 6c 69 6e |UNITVEC(|firstlin|
|00004530| 65 29 3b 0d 09 09 50 4f | 4c 59 33 44 28 78 31 2c |e);...PO|LY3D(x1,|
|00004540| 79 31 2c 7a 31 2c 78 31 | 20 2b 20 28 6e 65 77 6c |y1,z1,x1| + (newl|
|00004550| 69 6e 65 5b 31 5d 20 2a | 20 6c 65 6e 67 74 68 29 |ine[1] *| length)|
|00004560| 2c 79 31 2c 7a 31 29 3b | 0d 09 09 50 4f 4c 59 33 |,y1,z1);|...POLY3|
|00004570| 44 28 78 31 2c 79 31 2c | 7a 31 2c 78 31 2c 79 31 |D(x1,y1,|z1,x1,y1|
|00004580| 20 2b 20 28 6e 65 77 6c | 69 6e 65 5b 32 5d 20 2a | + (newl|ine[2] *|
|00004590| 20 6c 65 6e 67 74 68 29 | 2c 7a 31 29 3b 0d 09 09 | length)|,z1);...|
|000045a0| 50 4f 4c 59 33 44 28 78 | 31 2c 79 31 2c 7a 31 2c |POLY3D(x|1,y1,z1,|
|000045b0| 78 31 2c 79 31 2c 7a 31 | 20 2b 20 28 6e 65 77 6c |x1,y1,z1| + (newl|
|000045c0| 69 6e 65 5b 33 5d 20 2a | 20 6c 65 6e 67 74 68 29 |ine[3] *| length)|
|000045d0| 29 3b 0d 09 45 4e 44 3b | 0d 45 4e 44 3b 0d 52 75 |);..END;|.END;.Ru|
|000045e0| 6e 28 43 65 6e 74 65 72 | 33 44 29 3b 00 00 00 00 |n(Center|3D);....|
|000045f0| 60 00 00 00 00 00 00 00 | 00 00 3b 00 00 00 41 00 |`.......|..;...A.|
|00004600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004640| 00 00 00 00 00 00 00 00 | 00 00 87 0d 68 00 00 0a |........|....h...|
|00004650| 5e 05 79 2c a4 00 00 00 | 00 00 31 00 00 00 40 0f |^.y,....|..1...@.|
|00004660| 41 75 74 6f 4e 75 6d 62 | 65 72 20 31 2e 30 31 00 |AutoNumb|er 1.01.|
|00004670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0a |........|........|
|00004680| 2a 50 72 6f 63 65 64 75 | 72 65 20 41 75 74 6f 4e |*Procedu|re AutoN|
|00004690| 75 6d 3b 0d 56 41 52 0d | 09 53 74 6f 70 2c 52 61 |um;.VAR.|.Stop,Ra|
|000046a0| 6e 64 46 6c 61 67 20 3a | 20 42 4f 4f 4c 45 41 4e |ndFlag :| BOOLEAN|
|000046b0| 3b 0d 09 57 49 44 54 48 | 2c 54 4c 2c 4c 52 2c 20 |;..WIDTH|,TL,LR, |
|000046c0| 49 4e 44 58 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |INDX: IN|TEGER;..|
|000046d0| 56 61 6c 32 2c 56 61 6c | 34 2c 56 61 6c 36 2c 56 |Val2,Val|4,Val6,V|
|000046e0| 61 6c 38 20 3a 20 53 54 | 52 49 4e 47 3b 0d 0d 50 |al8 : ST|RING;..P|
|000046f0| 72 6f 63 65 64 75 72 65 | 20 41 6c 69 67 6e 53 63 |rocedure| AlignSc|
|00004700| 6e 28 49 2c 4a 20 3a 20 | 49 4e 54 45 47 45 52 3b |n(I,J : |INTEGER;|
|00004710| 20 56 41 52 20 54 4c 2c | 4c 52 20 3a 20 49 4e 54 | VAR TL,|LR : INT|
|00004720| 45 47 45 52 29 3b 20 7b | 43 65 6e 74 65 72 73 20 |EGER); {|Centers |
|00004730| 44 69 61 6c 6f 67 7d 0d | 56 41 52 0d 09 73 63 72 |Dialog}.|VAR..scr|
|00004740| 78 31 2c 73 63 72 79 31 | 2c 73 63 72 78 32 2c 73 |x1,scry1|,scrx2,s|
|00004750| 63 72 79 32 2c 57 69 64 | 74 68 20 3a 20 49 4e 54 |cry2,Wid|th : INT|
|00004760| 45 47 45 52 3b 0d 42 45 | 47 49 4e 0d 09 47 65 74 |EGER;.BE|GIN..Get|
|00004770| 53 63 72 65 65 6e 28 73 | 63 72 78 31 2c 73 63 72 |Screen(s|crx1,scr|
|00004780| 79 31 2c 73 63 72 78 32 | 2c 73 63 72 79 32 29 3b |y1,scrx2|,scry2);|
|00004790| 0d 09 57 69 64 74 68 3a | 3d 20 4a 20 2d 20 49 3b |..Width:|= J - I;|
|000047a0| 0d 09 54 4c 3a 3d 20 28 | 28 73 63 72 78 31 20 2b |..TL:= (|(scrx1 +|
|000047b0| 20 73 63 72 78 32 29 20 | 44 49 56 20 32 29 20 2d | scrx2) |DIV 2) -|
|000047c0| 20 28 57 69 64 74 68 20 | 44 49 56 20 32 29 3b 0d | (Width |DIV 2);.|
|000047d0| 09 4c 52 3a 3d 20 54 4c | 20 2b 20 57 69 64 74 68 |.LR:= TL| + Width|
|000047e0| 3b 0d 45 4e 44 3b 0d 0d | 50 72 6f 63 65 64 75 72 |;.END;..|Procedur|
|000047f0| 65 20 4d 61 6b 44 6c 6f | 67 3b 09 7b 44 65 66 69 |e MakDlo|g;.{Defi|
|00004800| 6e 65 73 20 63 75 73 74 | 6f 6d 20 64 69 61 6c 6f |nes cust|om dialo|
|00004810| 67 20 62 6f 78 7d 0d 43 | 4f 4e 53 54 20 0d 09 53 |g box}.C|ONST ..S|
|00004820| 43 4e 57 3d 33 32 30 3b | 20 53 43 4e 48 3d 33 32 |CNW=320;| SCNH=32|
|00004830| 30 3b 0d 42 45 47 49 4e | 0d 09 41 6c 69 67 6e 53 |0;.BEGIN|..AlignS|
|00004840| 63 6e 28 30 2c 53 43 4e | 57 2c 54 4c 2c 4c 52 29 |cn(0,SCN|W,TL,LR)|
|00004850| 3b 0d 09 42 65 67 69 6e | 44 69 61 6c 6f 67 28 31 |;..Begin|Dialog(1|
|00004860| 2c 31 2c 54 4c 2c 31 30 | 30 2c 4c 52 2c 53 43 4e |,1,TL,10|0,LR,SCN|
|00004870| 48 29 3b 0d 09 41 64 64 | 42 75 74 74 6f 6e 28 27 |H);..Add|Button('|
|00004880| 4f 4b 27 2c 31 2c 31 2c | 38 30 2c 31 39 30 2c 31 |OK',1,1,|80,190,1|
|00004890| 33 38 2c 32 31 30 29 3b | 0d 09 41 64 64 42 75 74 |38,210);|..AddBut|
|000048a0| 74 6f 6e 28 27 43 61 6e | 63 65 6c 27 2c 32 2c 31 |ton('Can|cel',2,1|
|000048b0| 2c 31 37 30 2c 31 39 30 | 2c 32 32 38 2c 32 31 30 |,170,190|,228,210|
|000048c0| 29 3b 0d 09 41 64 64 46 | 69 65 6c 64 28 27 53 74 |);..AddF|ield('St|
|000048d0| 61 72 74 56 61 6c 75 65 | 20 3a 27 2c 33 2c 31 2c |artValue| :',3,1,|
|000048e0| 35 30 2c 33 31 2c 31 34 | 36 2c 34 37 29 3b 0d 09 |50,31,14|6,47);..|
|000048f0| 41 64 64 46 69 65 6c 64 | 28 27 30 27 2c 34 2c 32 |AddField|('0',4,2|
|00004900| 2c 31 36 34 2c 33 31 2c | 32 34 39 2c 34 38 29 3b |,164,31,|249,48);|
|00004910| 0d 09 41 64 64 46 69 65 | 6c 64 28 27 49 6e 63 72 |..AddFie|ld('Incr|
|00004920| 65 6d 65 6e 74 20 3a 27 | 2c 35 2c 31 2c 35 30 2c |ement :'|,5,1,50,|
|00004930| 36 33 2c 31 34 37 2c 38 | 31 29 3b 0d 09 41 64 64 |63,147,8|1);..Add|
|00004940| 46 69 65 6c 64 28 27 31 | 27 2c 36 2c 32 2c 31 36 |Field('1|',6,2,16|
|00004950| 34 2c 36 33 2c 32 34 39 | 2c 38 31 29 3b 0d 09 41 |4,63,249|,81);..A|
|00004960| 64 64 46 69 65 6c 64 28 | 27 50 72 65 66 69 78 20 |ddField(|'Prefix |
|00004970| 3a 27 2c 37 2c 31 2c 35 | 30 2c 39 33 2c 31 31 33 |:',7,1,5|0,93,113|
|00004980| 2c 31 31 31 29 3b 0d 09 | 41 64 64 46 69 65 6c 64 |,111);..|AddField|
|00004990| 28 27 27 2c 38 2c 32 2c | 31 36 34 2c 39 34 2c 32 |('',8,2,|164,94,2|
|000049a0| 37 35 2c 31 31 31 29 3b | 0d 09 41 64 64 46 69 65 |75,111);|..AddFie|
|000049b0| 6c 64 28 27 53 75 66 66 | 69 78 20 3a 27 2c 39 2c |ld('Suff|ix :',9,|
|000049c0| 31 2c 35 30 2c 31 32 33 | 2c 31 31 33 2c 31 33 39 |1,50,123|,113,139|
|000049d0| 29 3b 0d 09 41 64 64 46 | 69 65 6c 64 28 27 27 2c |);..AddF|ield('',|
|000049e0| 31 30 2c 32 2c 31 36 34 | 2c 31 32 33 2c 32 37 35 |10,2,164|,123,275|
|000049f0| 2c 31 33 39 29 3b 0d 09 | 41 64 64 46 69 65 6c 64 |,139);..|AddField|
|00004a00| 28 27 41 75 74 6f 4e 75 | 6d 62 65 72 20 76 31 2e |('AutoNu|mber v1.|
|00004a10| 30 31 27 2c 31 31 2c 31 | 2c 31 30 30 2c 30 2c 32 |01',11,1|,100,0,2|
|00004a20| 34 30 2c 31 38 29 3b 0d | 09 45 6e 64 44 69 61 6c |40,18);.|.EndDial|
|00004a30| 6f 67 3b 0d 45 4e 44 3b | 0d 0d 50 72 6f 63 65 64 |og;.END;|..Proced|
|00004a40| 75 72 65 20 47 65 74 49 | 6e 66 6f 3b 0d 56 41 52 |ure GetI|nfo;.VAR|
|00004a50| 0d 09 44 6f 6e 65 20 3a | 20 42 4f 4f 4c 45 41 4e |..Done :| BOOLEAN|
|00004a60| 3b 0d 09 49 74 65 6d 20 | 3a 20 49 4e 54 45 47 45 |;..Item |: INTEGE|
|00004a70| 52 3b 0d 42 45 47 49 4e | 0d 09 44 6f 6e 65 3a 3d |R;.BEGIN|..Done:=|
|00004a80| 20 46 61 6c 73 65 3b 0d | 09 4d 61 6b 44 6c 6f 67 | False;.|.MakDlog|
|00004a90| 3b 0d 09 47 65 74 44 69 | 61 6c 6f 67 28 31 29 3b |;..GetDi|alog(1);|
|00004aa0| 0d 09 52 45 50 45 41 54 | 0d 09 09 44 69 61 6c 6f |..REPEAT|...Dialo|
|00004ab0| 67 45 76 65 6e 74 28 49 | 74 65 6d 29 3b 0d 09 09 |gEvent(I|tem);...|
|00004ac0| 49 46 20 49 74 65 6d 20 | 3d 20 31 20 54 48 45 4e |IF Item |= 1 THEN|
|00004ad0| 20 42 45 47 49 4e 0d 09 | 09 09 56 61 6c 32 3a 3d | BEGIN..|..Val2:=|
|00004ae0| 20 47 65 74 46 69 65 6c | 64 28 34 29 3b 0d 09 09 | GetFiel|d(4);...|
|00004af0| 09 56 61 6c 34 3a 3d 20 | 47 65 74 46 69 65 6c 64 |.Val4:= |GetField|
|00004b00| 28 36 29 3b 0d 09 09 09 | 56 61 6c 36 3a 3d 20 47 |(6);....|Val6:= G|
|00004b10| 65 74 46 69 65 6c 64 28 | 38 29 3b 0d 09 09 09 56 |etField(|8);....V|
|00004b20| 61 6c 38 3a 3d 20 47 65 | 74 46 69 65 6c 64 28 31 |al8:= Ge|tField(1|
|00004b30| 30 29 3b 0d 09 09 09 44 | 6f 6e 65 3a 3d 20 54 72 |0);....D|one:= Tr|
|00004b40| 75 65 3b 0d 09 09 09 45 | 4e 44 0d 09 09 45 4c 53 |ue;....E|ND...ELS|
|00004b50| 45 20 49 46 20 49 74 65 | 6d 20 3d 20 32 20 54 48 |E IF Ite|m = 2 TH|
|00004b60| 45 4e 20 42 45 47 49 4e | 0d 09 09 09 44 6f 6e 65 |EN BEGIN|....Done|
|00004b70| 3a 3d 20 54 72 75 65 3b | 0d 09 09 09 53 74 6f 70 |:= True;|....Stop|
|00004b80| 3a 3d 20 54 72 75 65 3b | 0d 09 09 09 45 4e 44 3b |:= True;|....END;|
|00004b90| 0d 09 55 4e 54 49 4c 20 | 44 6f 6e 65 3b 0d 09 43 |..UNTIL |Done;..C|
|00004ba0| 6c 72 44 69 61 6c 6f 67 | 3b 0d 45 4e 44 3b 0d 0d |lrDialog|;.END;..|
|00004bb0| 50 72 6f 63 65 64 75 72 | 65 20 4d 61 6b 65 54 78 |Procedur|e MakeTx|
|00004bc0| 74 28 49 4e 44 58 20 3a | 20 49 4e 54 45 47 45 52 |t(INDX :| INTEGER|
|00004bd0| 3b 4f 62 32 20 3a 20 48 | 41 4e 44 4c 45 29 3b 09 |;Ob2 : H|ANDLE);.|
|00004be0| 7b 4d 6f 64 69 66 69 65 | 73 20 74 65 78 74 20 73 |{Modifie|s text s|
|00004bf0| 74 72 69 6e 67 7d 0d 56 | 41 52 0d 09 4f 6c 64 53 |tring}.V|AR..OldS|
|00004c00| 74 72 2c 4e 65 77 53 74 | 72 2c 42 61 73 65 56 61 |tr,NewSt|r,BaseVa|
|00004c10| 6c 20 3a 20 53 54 52 49 | 4e 47 3b 0d 09 49 6e 74 |l : STRI|NG;..Int|
|00004c20| 56 61 6c 20 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |Val : IN|TEGER;..|
|00004c30| 49 6e 64 78 56 61 6c 20 | 3a 20 52 45 41 4c 3b 0d |IndxVal |: REAL;.|
|00004c40| 42 45 47 49 4e 0d 09 4f | 6c 64 53 74 72 3a 3d 47 |BEGIN..O|ldStr:=G|
|00004c50| 65 74 54 65 78 74 28 4f | 62 32 29 3b 0d 09 49 46 |etText(O|b2);..IF|
|00004c60| 20 4f 6c 64 53 74 72 20 | 3c 3e 20 27 27 20 54 48 | OldStr |<> '' TH|
|00004c70| 45 4e 20 42 45 47 49 4e | 0d 09 09 49 46 20 49 4e |EN BEGIN|...IF IN|
|00004c80| 44 58 20 3d 20 31 20 54 | 48 45 4e 20 42 45 47 49 |DX = 1 T|HEN BEGI|
|00004c90| 4e 0d 09 09 09 42 61 73 | 65 56 61 6c 3a 3d 20 56 |N....Bas|eVal:= V|
|00004ca0| 61 6c 32 3b 0d 09 09 09 | 49 6e 64 78 56 61 6c 3a |al2;....|IndxVal:|
|00004cb0| 3d 20 53 74 72 32 4e 75 | 6d 28 56 61 6c 32 29 3b |= Str2Nu|m(Val2);|
|00004cc0| 0d 09 09 09 45 4e 44 0d | 09 09 45 4c 53 45 20 42 |....END.|..ELSE B|
|00004cd0| 45 47 49 4e 0d 09 09 09 | 49 6e 64 78 56 61 6c 3a |EGIN....|IndxVal:|
|00004ce0| 3d 20 49 6e 64 78 56 61 | 6c 20 2b 28 53 74 72 32 |= IndxVa|l +(Str2|
|00004cf0| 4e 75 6d 28 56 61 6c 34 | 29 29 3b 0d 09 09 09 45 |Num(Val4|));....E|
|00004d00| 4e 44 3b 0d 09 42 61 73 | 65 56 61 6c 3a 3d 4e 75 |ND;..Bas|eVal:=Nu|
|00004d10| 6d 32 53 74 72 28 30 2c | 49 6e 64 78 56 61 6c 29 |m2Str(0,|IndxVal)|
|00004d20| 3b 0d 09 49 46 20 56 61 | 6c 36 20 3c 3e 20 27 27 |;..IF Va|l6 <> ''|
|00004d30| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 42 61 | THEN BE|GIN...Ba|
|00004d40| 73 65 56 61 6c 3a 3d 20 | 43 6f 6e 63 61 74 28 56 |seVal:= |Concat(V|
|00004d50| 61 6c 36 2c 42 61 73 65 | 56 61 6c 29 3b 0d 09 09 |al6,Base|Val);...|
|00004d60| 45 4e 44 3b 0d 09 49 46 | 20 56 61 6c 38 20 3c 3e |END;..IF| Val8 <>|
|00004d70| 20 27 27 20 54 48 45 4e | 20 42 45 47 49 4e 0d 09 | '' THEN| BEGIN..|
|00004d80| 09 42 61 73 65 56 61 6c | 3a 3d 20 43 6f 6e 63 61 |.BaseVal|:= Conca|
|00004d90| 74 28 42 61 73 65 56 61 | 6c 2c 56 61 6c 38 29 3b |t(BaseVa|l,Val8);|
|00004da0| 0d 09 09 45 4e 44 3b 0d | 09 4e 65 77 53 74 72 3a |...END;.|.NewStr:|
|00004db0| 3d 20 42 61 73 65 56 61 | 6c 3b 0d 09 53 65 74 54 |= BaseVa|l;..SetT|
|00004dc0| 65 78 74 28 4f 62 32 2c | 4e 65 77 53 74 72 29 3b |ext(Ob2,|NewStr);|
|00004dd0| 0d 09 45 4e 44 3b 0d 45 | 4e 44 3b 0d 0d 50 72 6f |..END;.E|ND;..Pro|
|00004de0| 63 65 64 75 72 65 20 50 | 72 6f 63 65 73 73 3b 09 |cedure P|rocess;.|
|00004df0| 7b 50 72 6f 63 65 73 73 | 65 73 20 73 65 6c 65 63 |{Process|es selec|
|00004e00| 74 65 64 20 74 65 78 74 | 7d 0d 56 41 52 0d 09 4f |ted text|}.VAR..O|
|00004e10| 75 74 46 6c 61 67 20 3a | 20 42 4f 4f 4c 45 41 4e |utFlag :| BOOLEAN|
|00004e20| 3b 0d 09 49 4e 44 58 2c | 4e 2c 43 4f 55 4e 54 20 |;..INDX,|N,COUNT |
|00004e30| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 52 65 66 41 |: INTEGE|R;..RefA|
|00004e40| 72 72 61 79 20 3a 20 41 | 52 52 41 59 20 5b 31 2e |rray : A|RRAY [1.|
|00004e50| 2e 32 35 30 5d 20 4f 46 | 20 48 41 4e 44 4c 45 3b |.250] OF| HANDLE;|
|00004e60| 0d 09 4f 62 48 64 2c 4f | 62 32 20 3a 20 48 41 4e |..ObHd,O|b2 : HAN|
|00004e70| 44 4c 45 3b 0d 09 58 31 | 2c 59 31 20 3a 20 52 45 |DLE;..X1|,Y1 : RE|
|00004e80| 41 4c 3b 0d 42 45 47 49 | 4e 0d 09 4e 3a 3d 20 31 |AL;.BEGI|N..N:= 1|
|00004e90| 3b 0d 09 49 4e 44 58 3a | 3d 20 31 3b 0d 09 52 45 |;..INDX:|= 1;..RE|
|00004ea0| 50 45 41 54 0d 09 09 47 | 65 74 50 74 28 58 31 2c |PEAT...G|etPt(X1,|
|00004eb0| 59 31 29 3b 0d 09 09 4f | 62 48 64 3a 3d 50 69 63 |Y1);...O|bHd:=Pic|
|00004ec0| 6b 4f 62 6a 65 63 74 28 | 58 31 2c 59 31 29 3b 0d |kObject(|X1,Y1);.|
|00004ed0| 09 09 49 46 20 4f 62 48 | 64 20 3c 3e 20 6e 69 6c |..IF ObH|d <> nil|
|00004ee0| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 52 | THEN BE|GIN....R|
|00004ef0| 65 66 41 72 72 61 79 5b | 4e 5d 3a 3d 4f 62 48 64 |efArray[|N]:=ObHd|
|00004f00| 3b 0d 09 09 09 4e 3a 3d | 20 4e 20 2b 20 31 3b 0d |;....N:=| N + 1;.|
|00004f10| 09 09 09 45 4e 44 0d 09 | 09 45 4c 53 45 20 42 45 |...END..|.ELSE BE|
|00004f20| 47 49 4e 0d 09 09 09 4f | 75 74 46 6c 61 67 3a 3d |GIN....O|utFlag:=|
|00004f30| 20 54 72 75 65 3b 0d 09 | 09 09 45 4e 44 3b 0d 09 | True;..|..END;..|
|00004f40| 55 4e 54 49 4c 20 4f 75 | 74 46 6c 61 67 3b 0d 09 |UNTIL Ou|tFlag;..|
|00004f50| 57 48 49 4c 45 20 49 4e | 44 58 20 3c 3d 20 4e 20 |WHILE IN|DX <= N |
|00004f60| 44 4f 20 42 45 47 49 4e | 0d 09 09 4f 62 32 3a 3d |DO BEGIN|...Ob2:=|
|00004f70| 52 65 66 41 72 72 61 79 | 5b 49 4e 44 58 5d 3b 0d |RefArray|[INDX];.|
|00004f80| 09 09 4d 41 4b 45 54 58 | 54 28 49 4e 44 58 2c 4f |..MAKETX|T(INDX,O|
|00004f90| 62 32 29 3b 0d 09 09 49 | 4e 44 58 3a 3d 20 49 4e |b2);...I|NDX:= IN|
|00004fa0| 44 58 20 2b 31 3b 0d 09 | 09 45 4e 44 3b 0d 09 4f |DX +1;..|.END;..O|
|00004fb0| 62 48 64 3a 3d 6e 69 6c | 3b 0d 09 4f 62 32 3a 3d |bHd:=nil|;..Ob2:=|
|00004fc0| 6e 69 6c 3b 0d 09 4f 75 | 74 46 6c 61 67 3a 3d 46 |nil;..Ou|tFlag:=F|
|00004fd0| 61 6c 73 65 3b 0d 09 46 | 4f 52 20 43 4f 55 4e 54 |alse;..F|OR COUNT|
|00004fe0| 3a 3d 20 4e 20 44 4f 57 | 4e 54 4f 20 31 20 44 4f |:= N DOW|NTO 1 DO|
|00004ff0| 0d 09 09 52 65 66 41 72 | 72 61 79 5b 43 4f 55 4e |...RefAr|ray[COUN|
|00005000| 54 5d 3a 3d 20 6e 69 6c | 3b 0d 45 4e 44 3b 09 09 |T]:= nil|;.END;..|
|00005010| 0d 42 45 47 49 4e 09 09 | 7b 4d 41 49 4e 20 53 45 |.BEGIN..|{MAIN SE|
|00005020| 51 55 45 4e 43 45 20 53 | 54 41 52 54 7d 0d 09 47 |QUENCE S|TART}..G|
|00005030| 65 74 49 6e 66 6f 3b 0d | 09 49 46 20 4e 4f 54 20 |etInfo;.|.IF NOT |
|00005040| 53 74 6f 70 20 54 48 45 | 4e 20 42 45 47 49 4e 0d |Stop THE|N BEGIN.|
|00005050| 09 09 53 79 73 42 65 65 | 70 3b 0d 09 09 50 72 6f |..SysBee|p;...Pro|
|00005060| 63 65 73 73 3b 0d 09 45 | 4e 44 0d 09 45 4c 53 45 |cess;..E|ND..ELSE|
|00005070| 20 42 45 47 49 4e 0d 09 | 44 53 45 4c 45 43 54 41 | BEGIN..|DSELECTA|
|00005080| 4c 4c 3b 0d 09 53 74 6f | 70 3a 3d 46 61 6c 73 65 |LL;..Sto|p:=False|
|00005090| 3b 0d 09 45 4e 44 3b 0d | 45 4e 44 3b 0d 52 55 4e |;..END;.|END;.RUN|
|000050a0| 28 41 75 74 6f 4e 75 6d | 29 3b 0d 00 00 09 7c 05 |(AutoNum|);....|.|
|000050b0| 79 2c a4 00 83 24 e8 00 | 31 00 00 00 40 07 49 6d |y,...$..|1...@.Im|
|000050c0| 70 54 65 78 74 00 00 00 | 00 00 00 00 00 00 00 00 |pText...|........|
|000050d0| 00 00 00 00 4e 5e 60 00 | 4d db 34 00 00 09 48 50 |....N^`.|M.4...HP|
|000050e0| 72 6f 63 65 64 75 72 65 | 20 49 6d 70 54 65 78 74 |rocedure| ImpText|
|000050f0| 3b 0d 56 41 52 0d 09 53 | 74 6f 70 20 3a 20 42 4f |;.VAR..S|top : BO|
|00005100| 4f 4c 45 41 4e 3b 0d 09 | 57 69 64 74 68 2c 54 4c |OLEAN;..|Width,TL|
|00005110| 2c 4c 52 2c 54 4a 53 2c | 4c 46 6c 61 67 2c 54 48 |,LR,TJS,|LFlag,TH|
|00005120| 54 20 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 48 74 |T : INTE|GER;..Ht|
|00005130| 5f 31 2c 54 53 50 2c 54 | 78 53 74 72 20 3a 20 53 |_1,TSP,T|xStr : S|
|00005140| 54 52 49 4e 47 3b 0d 09 | 44 65 6c 74 59 2c 4f 72 |TRING;..|DeltY,Or|
|00005150| 58 2c 4f 72 59 20 3a 20 | 52 45 41 4c 3b 0d 09 46 |X,OrY : |REAL;..F|
|00005160| 69 6c 65 4e 6d 20 3a 20 | 54 45 58 54 3b 0d 0d 50 |ileNm : |TEXT;..P|
|00005170| 72 6f 63 65 64 75 72 65 | 20 41 6c 69 67 6e 53 63 |rocedure| AlignSc|
|00005180| 6e 28 49 2c 4a 20 3a 20 | 49 4e 54 45 47 45 52 3b |n(I,J : |INTEGER;|
|00005190| 20 56 41 52 20 54 4c 2c | 4c 52 20 3a 20 49 4e 54 | VAR TL,|LR : INT|
|000051a0| 45 47 45 52 29 3b 20 7b | 44 69 61 6c 6f 67 20 43 |EGER); {|Dialog C|
|000051b0| 74 72 20 45 6e 67 69 6e | 65 7d 0d 56 41 52 0d 09 |tr Engin|e}.VAR..|
|000051c0| 73 63 72 78 31 2c 73 63 | 72 79 31 2c 73 63 72 78 |scrx1,sc|ry1,scrx|
|000051d0| 32 2c 73 63 72 79 32 2c | 57 69 64 74 68 20 3a 20 |2,scry2,|Width : |
|000051e0| 49 4e 54 45 47 45 52 3b | 0d 42 45 47 49 4e 0d 09 |INTEGER;|.BEGIN..|
|000051f0| 47 65 74 53 63 72 65 65 | 6e 28 73 63 72 78 31 2c |GetScree|n(scrx1,|
|00005200| 73 63 72 79 31 2c 73 63 | 72 78 32 2c 73 63 72 79 |scry1,sc|rx2,scry|
|00005210| 32 29 3b 0d 09 57 69 64 | 74 68 3a 3d 20 4a 20 2d |2);..Wid|th:= J -|
|00005220| 20 49 3b 0d 09 54 4c 3a | 3d 20 28 28 73 63 72 78 | I;..TL:|= ((scrx|
|00005230| 31 20 2b 20 73 63 72 78 | 32 29 20 44 49 56 20 32 |1 + scrx|2) DIV 2|
|00005240| 29 20 2d 20 28 57 69 64 | 74 68 20 44 49 56 20 32 |) - (Wid|th DIV 2|
|00005250| 29 3b 0d 09 4c 52 3a 3d | 20 54 4c 20 2b 20 57 69 |);..LR:=| TL + Wi|
|00005260| 64 74 68 3b 0d 45 4e 44 | 3b 0d 0d 50 72 6f 63 65 |dth;.END|;..Proce|
|00005270| 64 75 72 65 20 4d 61 6b | 44 4c 6f 67 3b 0d 43 4f |dure Mak|DLog;.CO|
|00005280| 4e 53 54 0d 09 53 43 4e | 57 3d 32 38 35 3b 20 53 |NST..SCN|W=285; S|
|00005290| 43 4e 48 3d 33 30 30 3b | 0d 42 45 47 49 4e 0d 09 |CNH=300;|.BEGIN..|
|000052a0| 41 6c 69 67 6e 53 63 6e | 28 30 2c 53 43 4e 57 2c |AlignScn|(0,SCNW,|
|000052b0| 54 4c 2c 4c 52 29 3b 0d | 09 42 65 67 69 6e 44 69 |TL,LR);.|.BeginDi|
|000052c0| 61 6c 6f 67 28 31 2c 31 | 2c 54 4c 2c 31 30 30 2c |alog(1,1|,TL,100,|
|000052d0| 4c 52 2c 53 43 4e 48 29 | 3b 0d 09 41 64 64 42 75 |LR,SCNH)|;..AddBu|
|000052e0| 74 74 6f 6e 28 27 4f 4b | 27 2c 31 2c 31 2c 37 30 |tton('OK|',1,1,70|
|000052f0| 2c 31 37 30 2c 31 32 38 | 2c 31 39 30 29 3b 0d 09 |,170,128|,190);..|
|00005300| 41 64 64 42 75 74 74 6f | 6e 28 27 43 61 6e 63 65 |AddButto|n('Cance|
|00005310| 6c 27 2c 32 2c 31 2c 31 | 35 30 2c 31 37 30 2c 32 |l',2,1,1|50,170,2|
|00005320| 30 38 2c 31 39 30 29 3b | 0d 09 41 64 64 46 69 65 |08,190);|..AddFie|
|00005330| 6c 64 28 27 49 6d 70 54 | 65 78 74 20 76 31 2e 35 |ld('ImpT|ext v1.5|
|00005340| 6d 27 2c 33 2c 31 2c 39 | 30 2c 31 30 2c 31 39 37 |m',3,1,9|0,10,197|
|00005350| 2c 32 36 29 3b 0d 41 64 | 64 46 69 65 6c 64 28 27 |,26);.Ad|dField('|
|00005360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005380| 2d 2d 2d 27 2c 34 2c 31 | 2c 35 30 2c 33 30 2c 32 |---',4,1|,50,30,2|
|00005390| 34 36 2c 34 31 29 3b 0d | 09 41 64 64 46 69 65 6c |46,41);.|.AddFiel|
|000053a0| 64 28 27 46 6f 6e 74 20 | 48 65 69 67 68 74 27 2c |d('Font |Height',|
|000053b0| 35 2c 31 2c 33 30 2c 35 | 30 2c 31 32 30 2c 36 36 |5,1,30,5|0,120,66|
|000053c0| 29 3b 0d 09 41 64 64 46 | 69 65 6c 64 28 27 54 65 |);..AddF|ield('Te|
|000053d0| 78 74 20 53 70 61 63 69 | 6e 67 27 2c 36 2c 31 2c |xt Spaci|ng',6,1,|
|000053e0| 33 30 2c 38 30 2c 31 32 | 35 2c 39 36 29 3b 0d 09 |30,80,12|5,96);..|
|000053f0| 41 64 64 46 69 65 6c 64 | 28 27 31 30 27 2c 37 2c |AddField|('10',7,|
|00005400| 32 2c 31 37 30 2c 35 30 | 2c 32 35 30 2c 36 37 29 |2,170,50|,250,67)|
|00005410| 3b 0d 09 41 64 64 46 69 | 65 6c 64 28 27 30 27 2c |;..AddFi|eld('0',|
|00005420| 38 2c 32 2c 31 37 30 2c | 38 30 2c 32 35 30 2c 39 |8,2,170,|80,250,9|
|00005430| 36 29 3b 0d 09 41 64 64 | 42 75 74 74 6f 6e 28 27 |6);..Add|Button('|
|00005440| 4c 4a 27 2c 39 2c 33 2c | 34 30 2c 31 31 30 2c 38 |LJ',9,3,|40,110,8|
|00005450| 35 2c 31 32 38 29 3b 0d | 09 41 64 64 42 75 74 74 |5,128);.|.AddButt|
|00005460| 6f 6e 28 27 43 4a 27 2c | 31 30 2c 33 2c 31 32 30 |on('CJ',|10,3,120|
|00005470| 2c 31 31 30 2c 31 36 32 | 2c 31 32 38 29 3b 0d 09 |,110,162|,128);..|
|00005480| 41 64 64 42 75 74 74 6f | 6e 28 27 52 4a 27 2c 31 |AddButto|n('RJ',1|
|00005490| 31 2c 33 2c 32 30 30 2c | 31 31 30 2c 32 34 34 2c |1,3,200,|110,244,|
|000054a0| 31 32 38 29 3b 0d 09 41 | 64 64 46 69 65 6c 64 28 |128);..A|ddField(|
|000054b0| 27 53 65 6c 65 63 74 20 | 73 74 61 72 74 20 70 6f |'Select |start po|
|000054c0| 69 6e 74 20 40 20 62 65 | 65 70 2e 2e 2e 27 2c 31 |int @ be|ep...',1|
|000054d0| 32 2c 31 2c 35 30 2c 31 | 34 30 2c 32 33 38 2c 31 |2,1,50,1|40,238,1|
|000054e0| 35 35 29 3b 0d 09 45 6e | 64 44 69 61 6c 6f 67 3b |55);..En|dDialog;|
|000054f0| 0d 45 4e 44 3b 0d 0d 50 | 72 6f 63 65 64 75 72 65 |.END;..P|rocedure|
|00005500| 20 47 65 74 49 6e 66 6f | 3b 0d 56 41 52 0d 09 44 | GetInfo|;.VAR..D|
|00005510| 6f 6e 65 20 3a 20 42 4f | 4f 4c 45 41 4e 3b 0d 09 |one : BO|OLEAN;..|
|00005520| 49 74 65 6d 20 3a 20 49 | 4e 54 45 47 45 52 3b 0d |Item : I|NTEGER;.|
|00005530| 42 45 47 49 4e 0d 09 44 | 6f 6e 65 3a 3d 20 46 61 |BEGIN..D|one:= Fa|
|00005540| 6c 73 65 3b 0d 09 53 74 | 6f 70 3a 3d 46 61 6c 73 |lse;..St|op:=Fals|
|00005550| 65 3b 0d 09 54 4a 53 3a | 3d 31 3b 0d 09 4d 61 6b |e;..TJS:|=1;..Mak|
|00005560| 44 6c 6f 67 3b 0d 09 47 | 65 74 44 69 61 6c 6f 67 |Dlog;..G|etDialog|
|00005570| 28 31 29 3b 0d 09 53 65 | 74 49 74 65 6d 28 39 2c |(1);..Se|tItem(9,|
|00005580| 54 72 75 65 29 3b 0d 09 | 52 45 50 45 41 54 0d 09 |True);..|REPEAT..|
|00005590| 09 44 69 61 6c 6f 67 45 | 76 65 6e 74 28 49 74 65 |.DialogE|vent(Ite|
|000055a0| 6d 29 3b 0d 09 09 49 46 | 20 49 74 65 6d 20 3d 20 |m);...IF| Item = |
|000055b0| 31 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 09 09 09 |1 THEN B|EGIN....|
|000055c0| 48 74 5f 31 3a 3d 20 47 | 65 74 46 69 65 6c 64 28 |Ht_1:= G|etField(|
|000055d0| 37 29 3b 0d 09 09 09 54 | 53 50 3a 3d 20 47 65 74 |7);....T|SP:= Get|
|000055e0| 46 69 65 6c 64 28 38 29 | 3b 0d 09 09 09 44 6f 6e |Field(8)|;....Don|
|000055f0| 65 3a 3d 20 54 72 75 65 | 3b 0d 09 09 09 45 4e 44 |e:= True|;....END|
|00005600| 0d 09 09 45 4c 53 45 20 | 49 46 20 49 74 65 6d 3d |...ELSE |IF Item=|
|00005610| 39 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 09 09 09 |9 THEN B|EGIN....|
|00005620| 53 65 74 49 74 65 6d 28 | 39 2c 54 72 75 65 29 3b |SetItem(|9,True);|
|00005630| 0d 09 09 09 53 65 74 49 | 74 65 6d 28 31 30 2c 46 |....SetI|tem(10,F|
|00005640| 61 6c 73 65 29 3b 0d 09 | 09 09 53 65 74 49 74 65 |alse);..|..SetIte|
|00005650| 6d 28 31 31 2c 46 61 6c | 73 65 29 3b 0d 09 09 09 |m(11,Fal|se);....|
|00005660| 54 4a 53 3a 3d 31 3b 0d | 09 09 09 45 4e 44 0d 09 |TJS:=1;.|...END..|
|00005670| 09 45 4c 53 45 20 49 46 | 20 49 74 65 6d 3d 31 30 |.ELSE IF| Item=10|
|00005680| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 53 | THEN BE|GIN....S|
|00005690| 65 74 49 74 65 6d 28 39 | 2c 46 61 6c 73 65 29 3b |etItem(9|,False);|
|000056a0| 0d 09 09 09 53 65 74 49 | 74 65 6d 28 31 30 2c 54 |....SetI|tem(10,T|
|000056b0| 72 75 65 29 3b 0d 09 09 | 09 53 65 74 49 74 65 6d |rue);...|.SetItem|
|000056c0| 28 31 31 2c 46 61 6c 73 | 65 29 3b 0d 09 09 09 54 |(11,Fals|e);....T|
|000056d0| 4a 53 3a 3d 32 3b 0d 09 | 09 09 45 4e 44 0d 09 09 |JS:=2;..|..END...|
|000056e0| 45 4c 53 45 20 49 46 20 | 49 74 65 6d 3d 31 31 20 |ELSE IF |Item=11 |
|000056f0| 54 48 45 4e 20 42 45 47 | 49 4e 0d 09 09 09 53 65 |THEN BEG|IN....Se|
|00005700| 74 49 74 65 6d 28 39 2c | 46 61 6c 73 65 29 3b 0d |tItem(9,|False);.|
|00005710| 09 09 09 53 65 74 49 74 | 65 6d 28 31 30 2c 46 61 |...SetIt|em(10,Fa|
|00005720| 6c 73 65 29 3b 0d 09 09 | 09 53 65 74 49 74 65 6d |lse);...|.SetItem|
|00005730| 28 31 31 2c 54 72 75 65 | 29 3b 0d 09 09 09 54 4a |(11,True|);....TJ|
|00005740| 53 3a 3d 33 3b 0d 09 09 | 09 45 4e 44 09 0d 09 09 |S:=3;...|.END....|
|00005750| 45 4c 53 45 20 49 46 20 | 49 74 65 6d 20 3d 20 32 |ELSE IF |Item = 2|
|00005760| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 44 | THEN BE|GIN....D|
|00005770| 6f 6e 65 3a 3d 20 54 72 | 75 65 3b 0d 09 09 09 53 |one:= Tr|ue;....S|
|00005780| 74 6f 70 3a 3d 20 54 72 | 75 65 3b 0d 09 09 09 45 |top:= Tr|ue;....E|
|00005790| 4e 44 3b 0d 09 55 4e 54 | 49 4c 20 44 6f 6e 65 3b |ND;..UNT|IL Done;|
|000057a0| 0d 09 43 6c 72 44 69 61 | 6c 6f 67 3b 0d 45 4e 44 |..ClrDia|log;.END|
|000057b0| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 50 6c 61 |;..PROCE|DURE Pla|
|000057c0| 63 65 28 4f 72 69 67 58 | 2c 4f 72 69 67 59 20 3a |ce(OrigX|,OrigY :|
|000057d0| 20 52 45 41 4c 3b 20 56 | 61 6c 75 20 3a 20 53 54 | REAL; V|alu : ST|
|000057e0| 52 49 4e 47 29 3b 20 7b | 54 65 78 74 20 45 6e 67 |RING); {|Text Eng|
|000057f0| 69 6e 65 7d 0d 09 42 45 | 47 49 4e 0d 09 09 54 65 |ine}..BE|GIN...Te|
|00005800| 78 74 53 69 7a 65 28 54 | 48 54 29 3b 0d 09 09 54 |xtSize(T|HT);...T|
|00005810| 65 78 74 4a 75 73 74 28 | 54 4a 53 29 3b 0d 09 09 |extJust(|TJS);...|
|00005820| 54 65 78 74 4f 72 69 67 | 69 6e 28 4f 72 69 67 58 |TextOrig|in(OrigX|
|00005830| 2c 4f 72 69 67 59 29 3b | 0d 09 09 42 45 47 49 4e |,OrigY);|...BEGIN|
|00005840| 54 45 58 54 3b 0d 09 09 | 09 56 61 6c 75 0d 09 09 |TEXT;...|.Valu...|
|00005850| 45 4e 44 54 45 58 54 3b | 0d 09 45 4e 44 3b 0d 42 |ENDTEXT;|..END;.B|
|00005860| 45 47 49 4e 09 09 09 7b | 4d 61 69 6e 20 53 65 71 |EGIN...{|Main Seq|
|00005870| 75 65 6e 63 65 20 53 74 | 61 72 74 7d 0d 09 47 65 |uence St|art}..Ge|
|00005880| 74 46 69 6c 65 28 46 69 | 6c 65 4e 6d 29 3b 0d 09 |tFile(Fi|leNm);..|
|00005890| 49 46 20 4e 4f 54 20 44 | 69 64 43 61 6e 63 65 6c |IF NOT D|idCancel|
|000058a0| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 47 65 | THEN BE|GIN...Ge|
|000058b0| 74 49 6e 66 6f 3b 0d 09 | 09 09 49 46 20 4e 4f 54 |tInfo;..|..IF NOT|
|000058c0| 20 53 74 6f 70 20 54 48 | 45 4e 20 42 45 47 49 4e | Stop TH|EN BEGIN|
|000058d0| 0d 09 09 09 09 53 79 73 | 42 65 65 70 3b 0d 09 09 |.....Sys|Beep;...|
|000058e0| 09 09 47 65 74 50 74 28 | 4f 72 58 2c 4f 72 59 29 |..GetPt(|OrX,OrY)|
|000058f0| 3b 0d 09 09 09 09 4c 46 | 6c 61 67 3a 3d 30 3b 0d |;.....LF|lag:=0;.|
|00005900| 09 09 09 09 44 65 6c 74 | 59 3a 3d 53 74 72 32 4e |....Delt|Y:=Str2N|
|00005910| 75 6d 28 54 53 50 29 3b | 0d 09 09 09 09 54 48 54 |um(TSP);|.....THT|
|00005920| 3a 3d 53 74 72 32 4e 75 | 6d 28 48 74 5f 31 29 3b |:=Str2Nu|m(Ht_1);|
|00005930| 0d 09 09 09 09 4f 70 65 | 6e 28 46 69 6c 65 4e 6d |.....Ope|n(FileNm|
|00005940| 29 3b 0d 09 09 09 09 57 | 48 49 4c 45 20 4e 4f 54 |);.....W|HILE NOT|
|00005950| 20 45 4f 46 28 46 69 6c | 65 4e 6d 29 20 44 4f 20 | EOF(Fil|eNm) DO |
|00005960| 42 45 47 49 4e 0d 09 09 | 09 09 09 52 65 61 64 4c |BEGIN...|...ReadL|
|00005970| 6e 28 54 78 53 74 72 29 | 3b 0d 09 09 09 09 09 49 |n(TxStr)|;......I|
|00005980| 46 20 4c 46 6c 61 67 20 | 3d 31 20 54 48 45 4e 0d |F LFlag |=1 THEN.|
|00005990| 09 09 09 09 09 09 4f 72 | 59 3a 3d 4f 72 59 20 2d |......Or|Y:=OrY -|
|000059a0| 20 44 65 6c 74 59 3b 0d | 09 09 09 09 09 50 6c 61 | DeltY;.|.....Pla|
|000059b0| 63 65 28 4f 72 58 2c 4f | 72 59 2c 54 78 53 74 72 |ce(OrX,O|rY,TxStr|
|000059c0| 29 3b 0d 09 09 09 09 09 | 4c 46 6c 61 67 3a 3d 31 |);......|LFlag:=1|
|000059d0| 3b 0d 09 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 09 |;......E|ND;.....|
|000059e0| 43 6c 6f 73 65 28 46 69 | 6c 65 4e 6d 29 3b 0d 09 |Close(Fi|leNm);..|
|000059f0| 09 09 09 4c 46 6c 61 67 | 3a 3d 30 3b 0d 09 09 09 |...LFlag|:=0;....|
|00005a00| 09 45 4e 44 3b 0d 09 09 | 09 45 4e 44 3b 0d 09 09 |.END;...|.END;...|
|00005a10| 45 4e 44 3b 0d 45 4e 44 | 3b 0d 52 75 6e 28 49 6d |END;.END|;.Run(Im|
|00005a20| 70 54 65 78 74 29 3b 00 | 00 00 60 00 00 00 00 00 |pText);.|..`.....|
|00005a30| 00 00 00 00 3b 00 00 00 | 41 00 08 42 2e ff ff 2f |....;...|A..B.../|
|00005a40| 2e 00 08 4e ad 2f 6a 48 | 6e fe e6 48 6e ff ff 2f |...N./jH|n..Hn../|
|00005a50| 2e 00 08 4e ad 30 52 20 | 5f 43 ee ff e6 70 04 22 |...N.0R |_C...p."|
|00005a60| d8 51 c8 ff fc 32 90 10 | 2c fb 8e 67 74 12 2e ff |.Q...2..|,..gt...|
|00005a70| ff 0a 01 00 01 c0 01 67 | 68 42 67 48 6e ff e6 4e |.......g|hBgHn..N|
|00005a80| ad 1c 5a 00 00 00 00 00 | 00 17 b4 05 79 2c a4 00 |..Z.....|....y,..|
|00005a90| 00 00 00 00 31 00 00 00 | 40 0d 57 61 6c 6c 4d 61 |....1...|@.WallMa|
|00005aa0| 6b 65 72 20 31 2e 30 00 | 00 00 00 00 7a 20 94 80 |ker 1.0.|....z ..|
|00005ab0| 28 1d 22 00 24 f7 3c 00 | 6f 17 80 7b 2a 2a 2a 2a |(.".$.<.|o..{****|
|00005ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 2a 20 57 61 6c 6c 4d |********|.* WallM|
|00005af0| 61 6b 65 72 20 31 2e 30 | 0d 2a 20 a9 20 31 39 39 |aker 1.0|.* . 199|
|00005b00| 33 20 47 72 61 70 68 73 | 6f 66 74 2c 20 49 6e 63 |3 Graphs|oft, Inc|
|00005b10| 2e 20 54 65 63 68 20 53 | 65 72 76 69 63 65 73 20 |. Tech S|ervices |
|00005b20| 47 72 6f 75 70 0d 2a 20 | 57 61 6c 6c 4d 61 6b 65 |Group.* |WallMake|
|00005b30| 72 20 61 6c 6c 6f 77 73 | 20 74 68 65 20 75 73 65 |r allows| the use|
|00005b40| 72 20 74 6f 20 63 72 65 | 61 74 65 20 63 6f 6d 70 |r to cre|ate comp|
|00005b50| 6c 65 78 20 77 61 6c 6c | 20 73 79 73 74 65 6d 73 |lex wall| systems|
|00005b60| 20 62 79 20 0d 2a 20 20 | 65 6e 74 65 72 69 6e 67 | by .*  |entering|
|00005b70| 20 77 61 6c 6c 20 61 6e | 64 20 73 79 6d 62 6f 6c | wall an|d symbol|
|00005b80| 20 70 61 72 61 6d 65 74 | 65 72 73 20 76 69 61 20 | paramet|ers via |
|00005b90| 64 69 61 6c 6f 67 2e 0d | 2a 0d 2a 20 60 54 77 61 |dialog..|*.* `Twa|
|00005ba0| 73 20 65 76 65 72 20 74 | 68 75 73 21 0d 2a 2a 2a |s ever t|hus!.***|
|00005bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 7d 0d 50 72 6f 63 65 |********|*}.Proce|
|00005be0| 64 75 72 65 20 57 61 6c | 6c 4d 61 6b 72 3b 0d 56 |dure Wal|lMakr;.V|
|00005bf0| 41 52 0d 09 57 69 64 74 | 68 2c 54 4c 2c 4c 52 2c |AR..Widt|h,TL,LR,|
|00005c00| 54 4c 32 2c 4c 52 32 2c | 49 6e 64 78 2c 41 49 6e |TL2,LR2,|Indx,AIn|
|00005c10| 64 78 2c 4c 65 6e 67 74 | 68 20 3a 20 49 4e 54 45 |dx,Lengt|h : INTE|
|00005c20| 47 45 52 3b 0d 09 58 31 | 2c 59 31 2c 58 32 2c 59 |GER;..X1|,Y1,X2,Y|
|00005c30| 32 2c 57 61 6c 6c 57 64 | 2c 50 6b 4c 6f 63 2c 50 |2,WallWd|,PkLoc,P|
|00005c40| 6b 48 74 2c 53 79 6d 4c | 6f 63 2c 48 65 69 67 68 |kHt,SymL|oc,Heigh|
|00005c50| 74 20 3a 20 52 45 41 4c | 3b 0d 09 53 74 6f 70 2c |t : REAL|;..Stop,|
|00005c60| 45 43 2c 53 43 2c 57 50 | 6b 2c 53 79 6d 59 65 73 |EC,SC,WP|k,SymYes|
|00005c70| 2c 43 61 70 49 6e 73 20 | 3a 20 42 4f 4f 4c 45 41 |,CapIns |: BOOLEA|
|00005c80| 4e 3b 0d 09 50 48 2c 50 | 4c 2c 57 57 2c 53 79 6d |N;..PH,P|L,WW,Sym|
|00005c90| 4e 61 6d 2c 4e 61 6d 54 | 6d 70 20 3a 20 53 54 52 |Nam,NamT|mp : STR|
|00005ca0| 49 4e 47 3b 0d 09 53 79 | 6d 41 72 79 20 3a 20 41 |ING;..Sy|mAry : A|
|00005cb0| 52 52 41 59 20 5b 31 2e | 2e 33 30 2c 31 2e 2e 34 |RRAY [1.|.30,1..4|
|00005cc0| 5d 20 4f 46 20 53 54 52 | 49 4e 47 3b 0d 0d 50 72 |] OF STR|ING;..Pr|
|00005cd0| 6f 63 65 64 75 72 65 20 | 41 6c 69 67 6e 53 63 6e |ocedure |AlignScn|
|00005ce0| 28 49 2c 4a 20 3a 20 49 | 4e 54 45 47 45 52 3b 20 |(I,J : I|NTEGER; |
|00005cf0| 56 41 52 20 54 4c 2c 4c | 52 20 3a 20 49 4e 54 45 |VAR TL,L|R : INTE|
|00005d00| 47 45 52 29 3b 20 7b 43 | 65 6e 74 65 72 73 20 44 |GER); {C|enters D|
|00005d10| 69 61 6c 6f 67 7d 0d 56 | 41 52 0d 09 73 63 72 78 |ialog}.V|AR..scrx|
|00005d20| 31 2c 73 63 72 79 31 2c | 73 63 72 78 32 2c 73 63 |1,scry1,|scrx2,sc|
|00005d30| 72 79 32 2c 57 69 64 74 | 68 20 3a 20 49 4e 54 45 |ry2,Widt|h : INTE|
|00005d40| 47 45 52 3b 0d 42 45 47 | 49 4e 0d 09 47 65 74 53 |GER;.BEG|IN..GetS|
|00005d50| 63 72 65 65 6e 28 73 63 | 72 78 31 2c 73 63 72 79 |creen(sc|rx1,scry|
|00005d60| 31 2c 73 63 72 78 32 2c | 73 63 72 79 32 29 3b 0d |1,scrx2,|scry2);.|
|00005d70| 09 57 69 64 74 68 3a 3d | 20 4a 20 2d 20 49 3b 0d |.Width:=| J - I;.|
|00005d80| 09 54 4c 3a 3d 20 28 28 | 73 63 72 78 31 20 2b 20 |.TL:= ((|scrx1 + |
|00005d90| 73 63 72 78 32 29 20 44 | 49 56 20 32 29 20 2d 20 |scrx2) D|IV 2) - |
|00005da0| 28 57 69 64 74 68 20 44 | 49 56 20 32 29 3b 0d 09 |(Width D|IV 2);..|
|00005db0| 4c 52 3a 3d 20 54 4c 20 | 2b 20 57 69 64 74 68 3b |LR:= TL |+ Width;|
|00005dc0| 0d 45 4e 44 3b 0d 0d 50 | 72 6f 63 65 64 75 72 65 |.END;..P|rocedure|
|00005dd0| 20 4d 61 6b 44 6c 6f 67 | 3b 09 7b 44 65 66 69 6e | MakDlog|;.{Defin|
|00005de0| 65 73 20 64 69 61 6c 6f | 67 73 7d 0d 43 4f 4e 53 |es dialo|gs}.CONS|
|00005df0| 54 0d 09 53 43 4e 57 31 | 3d 33 30 35 3b 20 53 43 |T..SCNW1|=305; SC|
|00005e00| 4e 48 31 3d 33 31 30 3b | 20 53 43 4e 57 32 3d 33 |NH1=310;| SCNW2=3|
|00005e10| 31 30 3b 20 53 43 4e 48 | 32 3d 33 31 30 3b 0d 42 |10; SCNH|2=310;.B|
|00005e20| 45 47 49 4e 0d 09 41 6c | 69 67 6e 53 63 6e 28 30 |EGIN..Al|ignScn(0|
|00005e30| 2c 53 43 4e 57 31 2c 54 | 4c 2c 4c 52 29 3b 0d 7b |,SCNW1,T|L,LR);.{|
|00005e40| 2d 2d 44 65 66 69 6e 65 | 20 57 61 6c 6c 20 50 61 |--Define| Wall Pa|
|00005e50| 72 61 6d 73 20 64 69 61 | 6c 6f 67 20 2d 2d 7d 0d |rams dia|log --}.|
|00005e60| 09 42 65 67 69 6e 44 69 | 61 6c 6f 67 28 31 2c 31 |.BeginDi|alog(1,1|
|00005e70| 2c 54 4c 2c 31 30 30 2c | 4c 52 2c 53 43 4e 48 31 |,TL,100,|LR,SCNH1|
|00005e80| 29 3b 0d 09 41 64 64 42 | 75 74 74 6f 6e 28 27 4f |);..AddB|utton('O|
|00005e90| 4b 27 2c 31 2c 31 2c 38 | 33 2c 31 37 38 2c 31 34 |K',1,1,8|3,178,14|
|00005ea0| 31 2c 31 39 38 29 3b 0d | 09 41 64 64 42 75 74 74 |1,198);.|.AddButt|
|00005eb0| 6f 6e 28 27 43 61 6e 63 | 65 6c 27 2c 32 2c 31 2c |on('Canc|el',2,1,|
|00005ec0| 31 35 37 2c 31 37 38 2c | 32 31 35 2c 31 39 38 29 |157,178,|215,198)|
|00005ed0| 3b 0d 09 41 64 64 46 69 | 65 6c 64 28 27 57 61 6c |;..AddFi|eld('Wal|
|00005ee0| 6c 20 57 69 64 74 68 20 | 3a 27 2c 33 2c 31 2c 36 |l Width |:',3,1,6|
|00005ef0| 30 2c 33 33 2c 31 33 39 | 2c 35 30 29 3b 0d 09 41 |0,33,139|,50);..A|
|00005f00| 64 64 46 69 65 6c 64 28 | 27 30 22 27 2c 34 2c 32 |ddField(|'0"',4,2|
|00005f10| 2c 31 34 36 2c 33 33 2c | 32 32 31 2c 35 30 29 3b |,146,33,|221,50);|
|00005f20| 0d 09 41 64 64 42 75 74 | 74 6f 6e 28 27 53 74 61 |..AddBut|ton('Sta|
|00005f30| 72 74 20 43 61 70 27 2c | 35 2c 32 2c 32 32 2c 36 |rt Cap',|5,2,22,6|
|00005f40| 33 2c 31 30 36 2c 38 30 | 29 3b 0d 09 41 64 64 42 |3,106,80|);..AddB|
|00005f50| 75 74 74 6f 6e 28 27 45 | 6e 64 20 43 61 70 27 2c |utton('E|nd Cap',|
|00005f60| 36 2c 32 2c 31 31 37 2c | 36 33 2c 31 39 35 2c 38 |6,2,117,|63,195,8|
|00005f70| 30 29 3b 0d 09 41 64 64 | 42 75 74 74 6f 6e 28 27 |0);..Add|Button('|
|00005f80| 57 61 6c 6c 20 50 65 61 | 6b 27 2c 37 2c 32 2c 32 |Wall Pea|k',7,2,2|
|00005f90| 30 36 2c 36 33 2c 32 39 | 36 2c 38 30 29 3b 0d 09 |06,63,29|6,80);..|
|00005fa0| 41 64 64 46 69 65 6c 64 | 28 27 50 65 61 6b 20 48 |AddField|('Peak H|
|00005fb0| 65 69 67 68 74 20 3a 27 | 2c 38 2c 31 2c 36 38 2c |eight :'|,8,1,68,|
|00005fc0| 39 31 2c 31 35 38 2c 31 | 30 37 29 3b 0d 09 41 64 |91,158,1|07);..Ad|
|00005fd0| 64 46 69 65 6c 64 28 27 | 30 22 27 2c 39 2c 32 2c |dField('|0"',9,2,|
|00005fe0| 31 36 37 2c 39 31 2c 32 | 34 32 2c 31 30 37 29 3b |167,91,2|42,107);|
|00005ff0| 0d 09 41 64 64 46 69 65 | 6c 64 28 27 50 65 61 6b |..AddFie|ld('Peak|
|00006000| 20 4c 6f 63 61 74 69 6f | 6e 20 3a 27 2c 31 30 2c | Locatio|n :',10,|
|00006010| 31 2c 35 37 2c 31 32 33 | 2c 31 36 30 2c 31 33 38 |1,57,123|,160,138|
|00006020| 29 3b 0d 09 41 64 64 46 | 69 65 6c 64 28 27 30 22 |);..AddF|ield('0"|
|00006030| 27 2c 31 31 2c 32 2c 31 | 36 37 2c 31 32 32 2c 32 |',11,2,1|67,122,2|
|00006040| 34 32 2c 31 33 38 29 3b | 0d 09 41 64 64 46 69 65 |42,138);|..AddFie|
|00006050| 6c 64 28 27 57 61 6c 6c | 4d 61 6b 65 72 20 31 2e |ld('Wall|Maker 1.|
|00006060| 30 27 2c 31 32 2c 31 2c | 31 30 2c 35 2c 31 32 31 |0',12,1,|10,5,121|
|00006070| 2c 32 31 29 3b 0d 09 41 | 64 64 46 69 65 6c 64 28 |,21);..A|ddField(|
|00006080| 27 57 61 6c 6c 20 50 61 | 72 61 6d 65 74 65 72 73 |'Wall Pa|rameters|
|00006090| 27 2c 31 33 2c 31 2c 31 | 38 38 2c 35 2c 33 30 37 |',13,1,1|88,5,307|
|000060a0| 2c 32 31 29 3b 0d 09 45 | 6e 64 44 69 61 6c 6f 67 |,21);..E|ndDialog|
|000060b0| 3b 0d 7b 2d 2d 44 65 66 | 69 6e 65 20 53 79 6d 62 |;.{--Def|ine Symb|
|000060c0| 6f 6c 20 50 61 72 61 6d | 73 20 64 69 61 6c 6f 67 |ol Param|s dialog|
|000060d0| 2d 2d 7d 0d 09 41 6c 69 | 67 6e 53 63 6e 28 30 2c |--}..Ali|gnScn(0,|
|000060e0| 53 43 4e 57 32 2c 54 4c | 2c 4c 52 29 3b 0d 09 42 |SCNW2,TL|,LR);..B|
|000060f0| 65 67 69 6e 44 69 61 6c | 6f 67 28 32 2c 31 2c 54 |eginDial|og(2,1,T|
|00006100| 4c 2c 31 30 30 2c 4c 52 | 2c 53 43 4e 48 32 29 3b |L,100,LR|,SCNH2);|
|00006110| 0d 09 41 64 64 42 75 74 | 74 6f 6e 28 27 4f 4b 27 |..AddBut|ton('OK'|
|00006120| 2c 31 2c 31 2c 35 35 2c | 31 37 35 2c 31 31 33 2c |,1,1,55,|175,113,|
|00006130| 31 39 35 29 3b 0d 09 41 | 64 64 42 75 74 74 6f 6e |195);..A|ddButton|
|00006140| 28 27 43 61 6e 63 65 6c | 27 2c 32 2c 31 2c 31 32 |('Cancel|',2,1,12|
|00006150| 33 2c 31 37 35 2c 31 38 | 31 2c 31 39 35 29 3b 0d |3,175,18|1,195);.|
|00006160| 09 41 64 64 42 75 74 74 | 6f 6e 28 27 44 6f 6e 65 |.AddButt|on('Done|
|00006170| 27 2c 33 2c 31 2c 31 39 | 31 2c 31 37 35 2c 32 34 |',3,1,19|1,175,24|
|00006180| 35 2c 31 39 35 29 3b 0d | 09 41 64 64 46 69 65 6c |5,195);.|.AddFiel|
|00006190| 64 28 27 53 79 6d 62 6f | 6c 20 4e 61 6d 65 20 3a |d('Symbo|l Name :|
|000061a0| 27 2c 34 2c 31 2c 35 39 | 2c 32 39 2c 31 35 36 2c |',4,1,59|,29,156,|
|000061b0| 34 35 29 3b 0d 09 41 64 | 64 46 69 65 6c 64 28 27 |45);..Ad|dField('|
|000061c0| 27 2c 35 2c 32 2c 31 36 | 38 2c 32 39 2c 32 37 34 |',5,2,16|8,29,274|
|000061d0| 2c 34 35 29 3b 0d 09 41 | 64 64 46 69 65 6c 64 28 |,45);..A|ddField(|
|000061e0| 27 4c 6f 63 61 74 69 6f | 6e 20 66 72 6f 6d 20 53 |'Locatio|n from S|
|000061f0| 74 61 72 74 20 3a 27 2c | 36 2c 31 2c 31 38 2c 35 |tart :',|6,1,18,5|
|00006200| 36 2c 31 35 36 2c 37 31 | 29 3b 0d 09 41 64 64 46 |6,156,71|);..AddF|
|00006210| 69 65 6c 64 28 27 30 22 | 27 2c 37 2c 32 2c 31 36 |ield('0"|',7,2,16|
|00006220| 38 2c 35 36 2c 32 37 34 | 2c 37 31 29 3b 0d 09 41 |8,56,274|,71);..A|
|00006230| 64 64 42 75 74 74 6f 6e | 28 27 44 65 66 61 75 6c |ddButton|('Defaul|
|00006240| 74 20 48 65 69 67 68 74 | 27 2c 38 2c 33 2c 35 30 |t Height|',8,3,50|
|00006250| 2c 38 30 2c 31 36 36 2c | 39 38 29 3b 0d 09 41 64 |,80,166,|98);..Ad|
|00006260| 64 42 75 74 74 6f 6e 28 | 27 55 73 65 72 20 48 65 |dButton(|'User He|
|00006270| 69 67 68 74 27 2c 39 2c | 33 2c 31 37 30 2c 38 30 |ight',9,|3,170,80|
|00006280| 2c 32 37 36 2c 39 38 29 | 3b 0d 09 41 64 64 46 69 |,276,98)|;..AddFi|
|00006290| 65 6c 64 28 27 48 65 69 | 67 68 74 20 3a 27 2c 31 |eld('Hei|ght :',1|
|000062a0| 30 2c 31 2c 38 30 2c 31 | 31 30 2c 31 33 36 2c 31 |0,1,80,1|10,136,1|
|000062b0| 32 36 29 3b 0d 09 41 64 | 64 46 69 65 6c 64 28 27 |26);..Ad|dField('|
|000062c0| 30 22 27 2c 31 31 2c 32 | 2c 31 34 30 2c 31 31 30 |0"',11,2|,140,110|
|000062d0| 2c 32 34 33 2c 31 32 36 | 29 3b 0d 09 41 64 64 42 |,243,126|);..AddB|
|000062e0| 75 74 74 6f 6e 28 27 43 | 61 70 20 57 61 6c 6c 73 |utton('C|ap Walls|
|000062f0| 20 41 74 20 49 6e 73 65 | 72 74 27 2c 31 32 2c 32 | At Inse|rt',12,2|
|00006300| 2c 38 30 2c 31 34 30 2c | 32 32 39 2c 31 35 37 29 |,80,140,|229,157)|
|00006310| 3b 0d 09 41 64 64 46 69 | 65 6c 64 28 27 57 61 6c |;..AddFi|eld('Wal|
|00006320| 6c 4d 61 6b 65 72 20 31 | 2e 30 27 2c 31 33 2c 31 |lMaker 1|.0',13,1|
|00006330| 2c 31 34 2c 37 2c 31 32 | 31 2c 32 33 29 3b 0d 09 |,14,7,12|1,23);..|
|00006340| 41 64 64 46 69 65 6c 64 | 28 27 50 6c 61 63 65 20 |AddField|('Place |
|00006350| 53 79 6d 62 6f 6c 27 2c | 31 34 2c 31 2c 32 31 31 |Symbol',|14,1,211|
|00006360| 2c 37 2c 33 30 32 2c 32 | 33 29 3b 0d 09 45 6e 64 |,7,302,2|3);..End|
|00006370| 44 69 61 6c 6f 67 3b 0d | 45 4e 44 3b 0d 50 72 6f |Dialog;.|END;.Pro|
|00006380| 63 65 64 75 72 65 20 47 | 65 74 49 6e 66 6f 3b 0d |cedure G|etInfo;.|
|00006390| 56 41 52 0d 09 44 6f 6e | 65 2c 44 6f 6e 65 32 2c |VAR..Don|e,Done2,|
|000063a0| 4f 75 74 46 6c 61 67 2c | 43 61 70 46 6c 61 67 2c |OutFlag,|CapFlag,|
|000063b0| 48 74 46 6c 61 67 20 3a | 20 42 4f 4f 4c 45 41 4e |HtFlag :| BOOLEAN|
|000063c0| 3b 0d 09 49 6e 64 78 35 | 2c 49 6e 64 78 36 2c 49 |;..Indx5|,Indx6,I|
|000063d0| 6e 64 78 37 2c 43 6f 75 | 6e 74 72 2c 49 74 65 6d |ndx7,Cou|ntr,Item|
|000063e0| 20 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 43 68 65 | : INTEG|ER;..Che|
|000063f0| 6b 46 6c 61 67 20 3a 20 | 52 45 41 4c 3b 0d 42 45 |kFlag : |REAL;.BE|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.